两个图元对象如何进行内容互拷

Question

两个图元对象，同时在一个窗体上
现在要在一个图元拷贝它的一部分图像到另一个图元上，怎么实现？

Answer 1

用 Canvas.CopyRect();
或 bitblt

Answer 2

我的代码如下，怎么不行啊？加二个image控件及一个按钮
var a,b:tmetafile;
  ac,bc:tmetafilecanvas;
  arect:trect;
begin
  a:=tmetafile.Create;
  a.Width :=10;
  a.Height :=10;
  b:=tmetafile.Create;
  b.Width :=50;
  b.Height :=50;
  ac:=tmetafilecanvas.Create(a,0);  bc:=tmetafilecanvas.Create(b,0);
  ac.LineTo(100,100);  arect:=rect(0,0,100,100);  bc.CopyRect(arect,ac,arect);  ac.Free;
  image1.Canvas.Draw(0,0,a);
  a.free;  bc.Free;
  image2.Canvas.Draw(0,0,b);
  b.free;
end;