Delphi 之 菜单组件(TMainMenu)
2021-04-25 00:26
标签:鼠标 sub items png pre UI images checked col 菜单组件TMainMenu 创建菜单双击TmenuMain,单击Caption就可以添加一个菜单项 菜单中添加分割线只需加“-”就可以添加一个分割线 级联菜单的设计 单击鼠标右键弹出菜单中选择Create Submenu菜单项 单选功能设计 要在设计的菜单项目中选择RadioItem属性为True,Checked属性为True 复选功能的设计 在设计菜单项目中选择RadioItem属性为False,Checked属性为True 动态创建菜单 源代码如下 为主菜单添加图标 为菜单添加图标,首先用TImagaList组件为菜单指定好图标,将菜单中的Images属性设为ImageList1,然后选择要添加的图标索引。如图所示: Delphi 之 菜单组件(TMainMenu) 标签:鼠标 sub items png pre UI images checked col 原文地址:http://www.cnblogs.com/jijm123/p/7928224.htmlprocedure 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.
文章标题:Delphi 之 菜单组件(TMainMenu)
文章链接:http://soscw.com/index.php/essay/79167.html