首页 > 代码库 > 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)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。