Image.Canvas绘出图象后, 怎样擦除才能使Image是透明的!!! ( 积分: 100 )

月

月冷无痕

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-21

• #1

如题!

 

S

siking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-21

• #2

Image1.Picture.Graphic:=nil;

 

L

lunyx_allen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-21

• #3

先备份再绘图，后重载

 

G

guanyue7613

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-21

• #4

if a bmp format picture, use this:
Transparent := true

 

小

小雨哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-25

• #5

呵呵，如下即可：

procedure ClearImageGraphic(Img:TImage);
var
OldRes:Boolean;
begin
if Assigned(Img) then
begin
OldRes:= Img.Transparent;
try
Img.Picture.Graphic:=nil;
Img.Transparent:=True;
Img.Refresh;
finally
Img.Transparent:=OldRes;
end;
end;
end;