窗体中有四个图片，在这四个图片上，我想按右键出现快捷菜单，里面是“删除”。能给我解释一下吗，多谢了！ (50分)

S

sntmpl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-01

• #1

窗体中有四个图片，在这四个图片上，我想按右键出现快捷菜单，里面是“删除”。但有程序设计中我只想用一个POPUPMENU，当点IMAGE1右键菜单中的“删除”时删除IMAGE1中的图片，其他三张图片也是。
[red]注意我只想用一个POPUPMENU实现。[/red]

 

T

takashiki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-01

• #2

把四个图片的PopupMenu都设为那个PopupMenu不就行了?
MenuItem的事件这么写:
var o:TObject;
begin
o:= PopupMenu1.PopupComponent;
TImage(o).free;
end;

 

S

sntmpl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-01

• #3

但是我点“删除”时的删除里面的代码怎么写呀？

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-01

• #4

TImage(PopupMenu.PopupComponent).Picture.Graphic:=Nil;

 

T

takashiki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-01

• #5

MenuItem的事件这么写:
var o:TObject;
begin
o:= PopupMenu1.PopupComponent;
FreeAndNil(TImage(o).Graphic.Bitmap);
end;

 

S

sntmpl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-01

• #6

我试了一下，pihome的可以用
takashiki的要改一下
var o:TObject;
begin
o:= PopupMenu1.PopupComponent;
FreeAndNil(TImage(o));
end;
可以给我解释一下吗，多谢了

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-01

• #7

PopupMenu1.PopupComponent //PopupMenu是在哪个控件上弹出来的
TImage(PopupMenu.PopupComponent).Picture.Graphic:=Nil; //将Graphic置空即清楚了图像，可再加载进来

FreeAndNil(TImage(o)); //释放对象，不能再使用了

 

S

sntmpl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-01

• #8

谢谢了