！！！快来看，有惊喜！！！有没有人能够告诉我，这个小问题怎么实现？

Question

用Bitmap
var B:TBitmap;
begin
  B:=TBitmap.Create;
  B.Width:=(Sender as TIMage).Picture.Width;
  B.Height:=(Sender as TIMage).Picture.Height;
  B.Assign((Sender as TImage).Picture.Bitmap);
  ...
  TargetImage.Picture.Bitmap.Assign(Bitmap);
  TargetImage.Update;
end;
  

Answer 1

如有可能，把你的代码给我，我帮你调试
[email protected]

Answer 2

每个控件不是有个Tag属性吗？
你可以尝试给不同的图像赋不同的值，用这个属性来区分不同的图像。

Answer 3

感谢li_zhifu,目前还有两处错误，在
TargetImage.Picture.Bitmap.Assign(Bitmap);
TargetImage.Update;
这两句编译时报错，分别为：
UnitChildForm.psa(109):‘(’expected but ‘)’found
UnitChildForm.pas(110):Incompatible types:‘TPersestent' and ‘tagBITMAP'

Answer 4

TO  li_zhifu
我待会把程序打包寄给你,谢谢你的关心！！！
Csdn让我感到温暖！

Answer 5

TO  li_zhifu
我待会把程序打包寄给你,谢谢你的关心！！！
Csdn让我感到温暖！

Answer 6

To li_zhifu
   我在unit2中定义了B，然后一切都解决了，问题宣告通过，感觉很好，多谢你了！！！
分数已给，请查收！
   你在西安吗？中午去吃牛羊肉泡馍怎样？1146792，QQ上见！

Answer 7

To li_zhifu
   我在unit2中定义了B，然后一切都解决了，问题宣告通过，感觉很好，多谢你了！！！
分数已给，请查收！
   你在西安吗？中午去吃牛羊肉泡馍怎样？1146792，QQ上见！
   还有一个问题，我怎么才能在点击Image后修改它的大小，比如点击后它周围有八个点，我可以按下鼠标拖动，改变它的大小。