-
把TmenuMain放在Form后,右击控件就可以对菜单进行设计
-
菜单中添加分割线只需加“-”就可以添加一个分割线
-
级联菜单的设计
单击鼠标右键弹出菜单中选择Create Submenu菜单项
-
单选功能设计
要在设计的菜单项目中选择RadioItem属性为True,Checked属性为True
-
复选功能的设计
在设计菜单项目中选择RadioItem属性为False,Checked属性为True
-
动态创建菜单
源代码如下:procedure TForm1.Button1Click(Sender: TObject); varMainMenu: TMainMenu;MenuItem: TMenuItem; begin//主菜单创建MainMenu:=TMainMenu.Create(self);Self.Menu:=MainMenu;//文件菜单创建MenuItem:= TMenuItem.Create(MainMenu);MenuItem.Caption:='文件';MainMenu.Items.Add(MenuItem);//新建子菜单创建MenuItem:=TMenuItem.Create(MainMenu);MenuItem.Caption:='新建';MainMenu.Items[0].Add(MenuItem);//子菜单中的子菜单创建MenuItem:= TMenuItem.Create(MainMenu);MenuItem.Caption:='打开';MainMenu.Items[0].Items[0].Add(MenuItem);MenuItem:= TMenuItem.Create(MainMenu);MenuItem.Caption:='保存';MainMenu.Items[0].Items[0].Add(MenuItem); end; end.
-
为主菜单添加图标
为菜单添加图标,首先用TImagaList组件为菜单指定好图标,将菜单中的Images属性设为 ImageList1,然后选择要添加的图标索引。如图所示:
原文链接:http://www.cnblogs.com/jijm123/p/7928224.html(在原文的基础上重新整理)