unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Button1:... 展开
unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Button1: TButton;PaintBox1: TPaintBox;PaintBox2: TPaintBox;procedure Button1Click(Sender: TObject);procedure FormCreate(Sender: TObject);procedure PaintBox2Click(Sender: TObject);procedure FormDestroy(Sender: TObject);private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var b:TBitmap;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 TForm1.FormCreate(Sender: TObject);var b:TBitmap;begin b:=TBitmap.Create;b.Load 收起
