F fxh7622 Unregistered / Unconfirmed GUEST, unregistred user! 2005-10-07 #1 我有一个TBitmap对象(A)。它的内容是A1。现在我想将A的图像内容清空,将另一个图像B的内容拷贝给A。让A现在的内容为B。 现在主要是如何清空A原有的图像内容我不会,那位高手能告诉我呢?
F fxh7622 Unregistered / Unconfirmed GUEST, unregistred user! 2005-10-07 #2 我有一个TBitmap对象(A)。它的内容是A1。现在我想将A的图像内容清空,将另一个图像B的内容拷贝给A。让A现在的内容为B。 现在主要是如何清空A原有的图像内容我不会,那位高手能告诉我呢?
L Lsh1982 Unregistered / Unconfirmed GUEST, unregistred user! 2005-10-07 #4 to fxh7622 : lngdtommy 的做法上对的以下是我调试过的程序代码,如果很喜欢研究 图象 处理请与我联系,QQ:120513682,liangshihong409@126.com. var bmp1,bmp2: TBitmap; begin bmp1 := TBitmap.Create; bmp2 := TBitmap.Create; bmp1.Assign(Self.Image1.Picture.Bitmap); bmp2.Assign(bmp1); Image2.Picture.Bitmap.Assign(bmp2); bmp1.Assign(nil); Self.Image1.Picture.Bitmap.Assign(bmp1); bmp1.Free; bmp2.Free; end;
to fxh7622 : lngdtommy 的做法上对的以下是我调试过的程序代码,如果很喜欢研究 图象 处理请与我联系,QQ:120513682,liangshihong409@126.com. var bmp1,bmp2: TBitmap; begin bmp1 := TBitmap.Create; bmp2 := TBitmap.Create; bmp1.Assign(Self.Image1.Picture.Bitmap); bmp2.Assign(bmp1); Image2.Picture.Bitmap.Assign(bmp2); bmp1.Assign(nil); Self.Image1.Picture.Bitmap.Assign(bmp1); bmp1.Free; bmp2.Free; end;