Delphi選單元件TMainMenu使用方法詳解

本文為大家分享了選單元件TMainMenud的使用方法，供大家參考，具體內容如下

菜單組件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，然後選擇要新增的圖標索引。如圖所示：

以上就是本文的全部內容，希望對大家的學習有所幫助，也希望大家多多支持武林網。