首页 > 代码库 > Delphi 之 菜单组件(TMainMenu)

Delphi 之 菜单组件(TMainMenu)

  菜单组件TMainMenu

创建菜单双击TmenuMain,单击Caption就可以添加一个菜单项

 

菜单中添加分割线只需加“-”就可以添加一个分割线

  级联菜单的设计

单击鼠标右键弹出菜单中选择Create Submenu菜单项

单选功能设计

 要在设计的菜单项目中选择RadioItem属性为True,Checked属性为True

复选功能的设计

 在设计菜单项目中选择RadioItem属性为False,Checked属性为True

  动态创建菜单

  

源代码如下

procedure TForm1.Button1Click(Sender: TObject);var  MainMenu: 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,然后选择要添加的图标索引。如图所示:

 

Delphi 之 菜单组件(TMainMenu)