Question

delphi中 如何把动态的把图片从Panel1移动 Panel2

Panel1中有一个TImage,我现在要把TImage从Panel1移动Panel2,自己试过直接TImageParent:=Panel2,虽然程序没有报错,但是图片并没有从Panel1移动Panel2,请高手赐教。
ygh_216:
除了
image1.parent:=panel2
这一句代码是不是应该还有其它的代码?

Answer 1

试过，image1.parent:=panel2是可以实现你说的功能。（image1里面的是jpg格式的图片）不过，我试过，有一些机器image里面的图片并不能正常显示，具体原因我也没有搞懂。如果你的机器一开始在pannel1里面的图片能正常显示，那么，应该能移动到panel2

Answer 2

从Image1到Image2

Image2.Width:=Image1.Width;
Image2.Height:=Image1.Height;
Image2.Canvas.Draw(0,0,Image1.Picture.Graphic);