动态生成popupmenu上的item后，如何响应点击事件？(50分)

1

1.2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-16

• #1

 

X

xsjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-16

• #2

??

 

H

htw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-16

• #3

双击之进入popupmenu的编辑状态, 单击后在事件中写代码

 

鲜

鲜橙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-16

• #4

动态生成后item后，不能动给它指定事件吗?
item是一个对象啊。应该是可以的。

 

A

alter

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-16

• #5

先定义处理过程
procedure Form1.ClickTest(sender: TObject);
begin
ShowMessage('test');
end;


在某处创建menuitem
var
tmp: TMenuItem;

begin
tmp:= tmenuitem.create(XXXX);
....
tmp.caption:= XXXX;
tmp.Onclick:= ClickTest;
....
end;

 

P

pcexplorer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-16

• #6

To: htw

同意 alter 的方法

只要体会了事件句柄和多态性就不难了！

 

C

chenlh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-16

• #7

agree to alter

 

B

bcahz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-17

• #8

yes

 

E

eyes4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-18

• #9

生成的代码如下：
PopUpitem:=TMenuItem.Create(Self);
PopupItem.Caption:='XXX';
PopUpItem.GroupIndex:=0;
PopUpItem.OnClick:=OcbPopupHandler;
Mnupop.Items.Add(PopupItem);

调用的例子如下：
procedure TFrmMain.OcbPopupHandler(Sender: TObject);
begin
if (sender as TMenuitem).GroupIndex=0 then
begin
....
end;
end;

 

1

1.2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-27

• #10

接受答案了.