kcl溶液电阻率:动态创建菜单

1：新建一个工程。2：添加一个tmainmenu控件。3：procedure TForm1.Button1Click(Sender: TObject);varfiles,edit:tmenuitem;new,copy:tmenuitem;sub1,sub2,sub3,lines:tmenuitem;beginfiles:=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 制做动态菜单 delphi 动态菜单 delphi 动态菜单 动态下拉菜单 创建资源管理器快捷菜单 如何创建DVD菜单 动态下拉菜单如何制作 如何制做DVD动态菜单 nokia7610是动态菜单吗 如何创建动态链接库? pb动态创建数据表 急 创建C++动态链接库 如何动态实现三级下拉菜单？ 求问：MTV动态菜单制作？ DW制作动态二级菜单求助 网页编程~!求二联动态下拉菜单 如何用vbScript创建动态变量名称 怎么动态创建NMSMTP发送邮件 在VB中如何动态创建控件？？ 在VB中如何动态创建控件？？ Datagrid如何动态创建列呀？ 如何用存储过程动态创建表 如何用存储过程动态创建表