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，然后選擇要添加的圖標索引。如圖所示：