procedure
TMainForm.MyClick(Sender: TObject);//动态菜单OnClick事件响应 begin
Show.Message(TMenuItem(Sender).Caption);//显示选中的动态菜单标题, end;
这里调用的ShowMessage标准例程(在Dialogs.pas中)显示TMenuItem(Sender).Caption,它就是选择的菜单项的Caption,类似用TMenuItem(Sender).Name则是选择菜单项的Name。 3.编写程序将动态菜单标题添加到指定的菜单顶下,并将其与OnClick()事件联系起来。将以下程序段添加到MainForm的OnCreate事件过程中,可在程序启动时完成动态菜单的动态生成: procedure
TMainForm.FormCreate(Sender: TObject); var
addSubItem:TMenuItem; i:Integer; begin for i:=0 to N do
//N等于要添加的动态菜单数目,需事先定义为数值型变量,并赋值 begin addSubItem:=
TMenuItem.Create(Self); addSubItem.Name := ′A′+IntToStr(i);
addSubItem.Caption := SubMenuItemSource; //
步骤1的SubMenuItemSource应先赋值 FileOpenItem.Add(addSubItem);
//在名称为FileOpenItem的菜单项下添加子菜单 addSubItem.OnClick:=MyClick; //
步骤2的MyClick(),自定义菜单要响应的事件 end end;
没有相关教程