Delphi 之菜单组件（TMainMenu）

时间：2014-10-14 14:12:59 收藏：0 阅读：400

　　菜单组件TMainMenu

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

bubuko.com,布布扣　

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

bubuko.com,布布扣

级联菜单的设计

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

bubuko.com,布布扣

单选功能设计

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

bubuko.com,布布扣

复选功能的设计

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

bubuko.com,布布扣

　　动态创建菜单

　　 bubuko.com,布布扣

源代码如下

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，然后选择要添加的图标索引。如图所示：

bubuko.com,布布扣

原文：http://www.cnblogs.com/delphi2014/p/4024209.html

Delphi 之 菜单组件（TMainMenu）

Delphi 之菜单组件（TMainMenu）