Delphi 之 菜单组件(TMainMenu)

Posted jijm123

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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)的主要内容,如果未能解决你的问题,请参考以下文章

如何在不关闭菜单的情况下选择菜单项?

Delphi 实现最近打开文件记录菜单

delphi的菜单问题

Delphi VCL 强制菜单重绘

DELPHI的问题~美化菜单

delphi6,能否在DBGrid组件中,对某一列的单元格,添加下拉菜单,实现多选功能