unit2.pas

来自「电脑上抓取当前屏幕的一个小程序」· PAS 代码 · 共 67 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TForm2 = class(TForm)
    PaintBox1: TPaintBox;
    PaintBox2: TPaintBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private

    { Private declarations }
  public

    { Public declarations }


end;

var
  Form2: TForm2;
  b:TBitmap;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
begin
  b:=Tbitmap.create;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  b.free;//释放变量
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  PaintBox1.Canvas.Draw(0,0,b);
  b.canvas.copyRect(Rect(PaintBox2.width,PaintBox2.height,0,0),b.canvas,
  rect(0,0,b.width,b.height));   //复制图像
  PaintBox2.Canvas.CopyRect(Rect(PaintBox2.width,0,0,PaintBox2.Height),b.canvas,
  rect(0,0,b.width,b.height));  //将图像翻转显示
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  b.LoadFromFile('c:\1.bmp');
  PaintBox1.Width:=b.width;
  PaintBox1.Height:=b.Height;
  PaintBox2.Width:=b.Width;
  PaintBox2.Height:=b.Height;  
end;

end.