O
ozj
Unregistered / Unconfirmed
GUEST, unregistred user!
我在程序里用此方法来加上popupMenu上的菜单项
PopupMenu1 := TPopupMenu.Create(Self);
with PopUpMenu1.Items do
begin
Add(NewItem('First Menu',0,False,True,MenuItem1Click,0,'MenuItem1'));
Add(NewItem('Second Menu',0,False,True,MenuItem2Click,0,'MenuItem2'));
Add(NewItem('Third Menu',0,False,True,MenuItem3Click,0,'MenuItem3'));
Add(NewLine); // 增加一个分割棒
Add(NewItem('Fourth Menu',0,False,True,MenuItem4Click,0,'MenuItem4'));
end;
问题在于MenuItem1Click这样的过程要事先生成好才能指定给PopupMenu1.Items.OnClick
项,动态加是上菜单项时,这此过程如何生成呢,因此我想给所有的菜单项指定一个固定
的过程,但我在此过程中如何能判断刚才用户选择了哪一个菜单项呢?
PopupMenu1 := TPopupMenu.Create(Self);
with PopUpMenu1.Items do
begin
Add(NewItem('First Menu',0,False,True,MenuItem1Click,0,'MenuItem1'));
Add(NewItem('Second Menu',0,False,True,MenuItem2Click,0,'MenuItem2'));
Add(NewItem('Third Menu',0,False,True,MenuItem3Click,0,'MenuItem3'));
Add(NewLine); // 增加一个分割棒
Add(NewItem('Fourth Menu',0,False,True,MenuItem4Click,0,'MenuItem4'));
end;
问题在于MenuItem1Click这样的过程要事先生成好才能指定给PopupMenu1.Items.OnClick
项,动态加是上菜单项时,这此过程如何生成呢,因此我想给所有的菜单项指定一个固定
的过程,但我在此过程中如何能判断刚才用户选择了哪一个菜单项呢?