当前位置：首页 > 资讯 > 技术文档

Delphi菜单组件TMainMenu使用方法详解

时间：2020-01-21 01:25 编辑：来源：阅读：
扫一扫，手机访问

摘要：Delphi菜单组件TMainMenu使用方法详解

本文为大家分享了菜单组件TMainMenud的使用方法，供大家参考，具体内容如下 [b]菜单组件TMainMenu[/b] 创建菜单双击TmenuMain，单击Caption就可以添加一个菜单项 [img]http://files.jb51.net/file_images/article/201711/2017113011491219.png[/img] 菜单中添加分割线只需加“-”就可以添加一个分割线 [img]http://files.jb51.net/file_images/article/201711/2017113011491220.png[/img] [b]级联菜单的设计[/b] 单击鼠标右键弹出菜单中选择Create Submenu菜单项 [img]http://files.jb51.net/file_images/article/201711/2017113011491221.png[/img] [b]单选功能设计[/b] 要在设计的菜单项目中选择RadioItem属性为True，Checked属性为True [img]http://files.jb51.net/file_images/article/201711/2017113011491222.png[/img] [b]复选功能的设计[/b] 在设计菜单项目中选择RadioItem属性为False，Checked属性为True [img]http://files.jb51.net/file_images/article/201711/2017113011491223.png[/img] 动态创建菜单 [img]http://files.jb51.net/file_images/article/201711/2017113011491324.png[/img] 源代码如下

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.

[b]为主菜单添加图标[/b] 　　为菜单添加图标，首先用TImagaList组件为菜单指定好图标，将菜单中的Images属性设为ImageList1，然后选择要添加的图标索引。如图所示： [img]http://files.jb51.net/file_images/article/201711/2017113011491325.png[/img] 以上就是本文的全部内容，希望对大家的学习有所帮助，也希望大家多多支持编程素材网。

全部评论(0)

上一篇：代理商能不能用自己的支付接口？能不能送自己的二级域名？
下一篇：Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法

资讯排行榜
更多>>