T
tomye
Unregistered / Unconfirmed
GUEST, unregistred user!
我在程序中动态的添加菜单项,但是如何才能得到该菜单项
的索引号?
...
procedure tform1.a;
begin
//要得到所选菜单项的索引号
end;
procedure tbutton1.click(sender:tobject);
var m:tmenuitem;
begin
m:=tmenuitem.create(self);
m.caption:='One Line';
popupmenu1.items[5].add(m);
m.onclick=a;
end;
...
的索引号?
...
procedure tform1.a;
begin
//要得到所选菜单项的索引号
end;
procedure tbutton1.click(sender:tobject);
var m:tmenuitem;
begin
m:=tmenuitem.create(self);
m.caption:='One Line';
popupmenu1.items[5].add(m);
m.onclick=a;
end;
...