引用TMenuItem的问题 我想在程序中自定义一函数,用于处理特定事件,想要引用已经在主界面上设置的TmenuItem,该怎么引用?真心求教啊,在线急等!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 type TMenuNotifyEvent = Procedure(sender: TMenuItem) of object;type TFrmMain = class(TForm)procedure AddMenu; var SubItem: TMenuItem; EventName: TMenuNotifyEvent; begin subitem := TMenuItem.Create(self); //subitem.Caption := ... EventName := mclick; SubItem.OnClick := TNotifyEvent(EventName); MainMenu1.Items[3].Add(subitem); end;procedure TFrmMain.MClick(mitem: TMenuItem);begin.....end; 我先试试初看起来,好像用了动态菜单技术吧!我在我的自定义函数里,函数参量是这样定义的:mitem:array of Tmenuitem不知妥否? 关于delphi编写QQ聊天监视的问题 Delphi汇编内存出错,图文并茂-_-~ 如何判断TreeView中有没有一个名称为XX的节点 dbexpress错误,急! 已知一段二进制文件,问题1,如何将其存为BMP文件,2,如何将其存入数据库 执行查询语句出现错误-有未闭合的引号? Variant的数据如何写入数据库中 请问如何拦截power键。 “公文包”模式的数据读取,来者给分,解决问题者500分,不是催牛,我急用!!! 请大家推荐一本书!! 数据控件问题 请教请教~~
TMenuNotifyEvent = Procedure(sender: TMenuItem) of object;
type
TFrmMain = class(TForm)procedure AddMenu;
var
SubItem: TMenuItem;
EventName: TMenuNotifyEvent;
begin
subitem := TMenuItem.Create(self);
//subitem.Caption := ...
EventName := mclick;
SubItem.OnClick := TNotifyEvent(EventName);
MainMenu1.Items[3].Add(subitem);
end;procedure TFrmMain.MClick(mitem: TMenuItem);
begin
.....
end;