Question

delphi图像复制

我想把delphi中Timage1控件里图像的前十行复制到Timage2控件中，请问高手该如何操作啊？多谢了！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
image2.Picture.Bitmap.Assign(image1.Picture.Bitmap);
image2.Picture.Bitmap.Height:=10;
end;

Answer 2

CopyRect(const Dest: TRect; Canvas: TCanvas; const Source: Trect);

其中参数，Dest为目的矩形，Canvas是源画布，Source为源矩形。
with SourceRect do
begin
Left := x1;
Top := y1;
Right := x2;
Bottom := y2;
end;

with DestRect do
begin
Left := x11;
Top := x12;
Right := y11;
Bottom := y12;
end;

ForeImage.Canvas.CopyRect(DestRect, BackImage.Canvas, SourceRect);
拷贝的时候Bottom 设置成10.
回答完毕，谢谢。。。