请问各位对一个Tbitmap对象来说! ( 积分: 50 )

  • 主题发起人 主题发起人 fxh7622
  • 开始时间 开始时间
F

fxh7622

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个TBitmap对象(A)。它的内容是A1。现在我想将A的图像内容清空,将另一个图像B的内容拷贝给A。让A现在的内容为B。
现在主要是如何清空A原有的图像内容我不会,那位高手能告诉我呢?
 
我有一个TBitmap对象(A)。它的内容是A1。现在我想将A的图像内容清空,将另一个图像B的内容拷贝给A。让A现在的内容为B。
现在主要是如何清空A原有的图像内容我不会,那位高手能告诉我呢?
 
A.Assign(nil);
 
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;
 
多人接受答案了。
 
后退
顶部