亲宝软件园·资讯

展开

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

癫狂编程 人气:0
想了解Delphi菜单组件TMainMenu使用方法详解的相关内容吗,癫狂编程在本文为您仔细讲解Delphi菜单组件的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点: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,然后选择要添加的图标索引。如图所示:

加载全部内容

相关教程
猜你喜欢
用户评论