Delphi 如何创建动态菜单？

创建一个动态菜单。。

答案：1：新建一个工程。
 2：添加一个tmainmenu控件。
 3：
 procedure TForm1.Button1Click(Sender: TObject);
 var
 files,edit:tmenuitem;
 new,copy:tmenuitem;
 sub1,sub2,sub3,lines:tmenuitem;
 begin
 files:=tmenuitem.Create(self);
 edit:=tmenuitem.create(self);
 files.Caption:='文件';
 edit.caption:='编辑';
 mainmenu1.AutoHotkeys:=mamanual;{此句代码为不让系统自动设置快捷键}
 form1.MainMenu1.Items.Add(files);
 form1.mainmenu1.items.add(edit);
 {上部代码为创建菜单头}
 new:=tmenuitem.create(self);
 copy:=tmenuitem.create(self);
 new.Caption:='新建';
 copy.caption:='拷贝';
 files.Add(new);
 edit.add(copy);
 {上部代码为创建菜单项}
 sub1:=tmenuitem.create(self);
 sub2:=tmenuitem.create(self);
 sub3:=tmenuitem.create(self);
 lines:=tmenuitem.create(self);
 lines.caption:='-';
 sub1.caption:='子菜单1';
 sub2.caption:='子菜单2';
 sub3.caption:='子菜单3';
 new.Add(sub1);
 new.add(lines);
 new.add(sub3);
 copy.Add(sub2);
 {上面代码出现多项子菜单和横线的效果}
 end;
  
在tmenuitem类中还有许多的事件和方法及属性，如Add,Clear,Click,Create,Delete,Destroy,Find,IndexOf,Insert,Remove等方法.
  
以上方法同样适用于TPopupMenu弹出菜单
不好意思 没有学过

上一个：关于DELPHI的TPROCESSENTRY32
下一个：tan atn arctan delphi vba