麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Delphi > 正文

Delphi菜單組件TMainMenu使用方法詳解

2020-01-31 20:50:00
字體:
來源:轉載
供稿:網友

本文為大家分享了菜單組件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,然后選擇要添加的圖標索引。如圖所示:

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 国产精品久久久久久久久久 | 久久国产精品99久久人人澡 | 一级电影在线观看 | 日韩字幕| 女18一级大黄毛片免费女人 | 一区二区免费 | 久草在线视频新 | 国产成人精品无人区一区 | 爽爽淫人综合网网站 | 狠狠干五月 | 亚洲网站在线观看视频 | 亚洲午夜视频在线 | 国产一区二区亚洲 | 久久精品亚洲一区 | 成人午夜网址 | 一级外国毛片 | 欧美精品在线免费观看 | 天天色综合6 | 国产一区二区三区精品在线观看 | 精品av在线播放 | 国产精品久久久久国产精品三级 | 黄色一级片免费观看 | 激情视频日韩 | 欧美视频国产 | 日本黄色免费观看视频 | 国产亚洲精品视频中文字幕 | 欧美精品18videos性欧美 | japan护士性xxxⅹhd | 国产无遮挡一级毛片 | 久草在线最新 | 欧美成人二区 | 久久久久国产一区二区三区不卡 | 免看黄大片aa | 久久久久9999 | 亚洲午夜精品视频 | 免费看一级毛片欧美 | 久久久久久久久久91 | 久久国产夫妻视频 | 色蜜桃av | 一边吃奶一边插下面 | 九九热在线观看视频 |