有关动态建popupmenu的click事件？ ( 积分: 50 )

A

aynes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-03

• #1

var
a: TPopupMenu;
b: TMenuItem;
begin
a:=TPopupMenu.Create(Application);
b:=TMenuItem.Create(a);
b.Caption:='abc';
a.Items.Add(b);
PopupMenu:=a;
b.OnClick :=mypopupclick(b.Caption);
end;


执行到"b.OnClick :=mypopupclick(b.Caption);"出错：Error] Unit1.pas(78): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

 

H

happycyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-03

• #2

procedure MenuClickEvent(Sender: TObject);
这才是menu的OnClick事件的正确定义
mypopupclick(b.Caption);很明显不对。
要修改其中的参数类型。

 

A

aynes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-03

• #3

对mypopupclick事件，我已经有过定义procedure MyPopupClick(str:string);

 

H

happycyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-03

• #4

其中的参数类型应该是：
(Sender: TObject);
而不应该是：
(str:string);

 

A

aynes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-03

• #5

恩，定义成(Sender:TObject)后就成了，
但我想加一个自定义的参数STR
这应该如何加

 

H

happycyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-03

• #6

不能添加参数。
只要将Str作为变量在你的处理方法内部去使用，而不能作为OnClick参数去处理。
这个参数是VCL写死的。

 

A

aynes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-03

• #7

麻烦阿，只能将str作为全局变量来调了，谢谢你阿