使用Canvas.CopyRect可以实现Rect的复制。
例：
Form2.Canvas.Textout(10, 10, 'Test');
引用在Form1中增加对Form2的引用后，因为在Form中画线会有重绘、覆盖等问题，所以可以在form1中使用一个Image用来显示from2中的图像:
procedure TForm2.Button1Click(Sender: TObject);
begin
//长宽可以自己调节下。
Image1.Canvas.CopyRect(Rect(10,10, 100,100), form1.Canvas, Rect(10,10,100,100));
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024