核心提示:procedureTForm1.Button1Click(Sender:TObject);varRect1,Rect2,Rect3:TRect;bmp:TBitmap;w,h:integer;begi...
procedure TForm1.Button1Click(Sender: TObject);var Rect1,Rect2,Rect3:TRect;
bmp:TBitmap;
w,h:integer;
begin
bmp:= TBitmap.Create;
bmp.Assign(Image1.Picture.Graphic);
w:=Image1.Width ;
h:=Image1.Height div 3;
Rect1:=Rect(0,0,w,h);
Rect2:=Rect(0,h,w,h*2);
Rect3:=Rect(0,h*2,w,h*3);
with Image2 do
begin
Height:=h;
Width:=w;
Canvas.CopyRect(Rect1,bmp.Canvas,Rect1);
end;
with Image3 do
begin
Height:=h;
Width:=w;
Canvas.CopyRect(Rect1,bmp.Canvas,Rect2);
end;
with Image4 do
begin
Height:=h;
Width:=w;
Canvas.CopyRect(Rect1,bmp.Canvas,Rect3);
end;
bmp.Free;
end;