TMainMenu 类[一]
自动建立一个 SDI Application 程序, 程序包含了漂亮的菜单:
在窗体文件内记录着菜单数据:
object MainMenu1: TMainMenu
Images = ImageList1
Left = 8
Top = 152
object F
原创
2021-04-30 14:16:54
326阅读
//隐藏与显示菜单 Self.Menu := nil; {隐藏菜单} Self.Menu := MainMenu1; {显示菜单}
转载
2017-10-12 22:10:00
156阅读
2评论
菜单组件TMainMenu 创建菜单双击TmenuMain，单击Caption就可以添加一个菜单项 菜单中添加分割线只需加“-”就可以添加一个分割线 级联菜单的设计 单击鼠标右键弹出菜单中选择Create Submenu菜单项 单选功能设计 要在设计的菜单项目中选择RadioItem属性为True，
转载
2019-07-20 04:13:00
253阅读
2评论
TMainMenu - 隐藏与显示菜单
//隐藏与显示菜单
Self.Menu := nil; {隐藏菜单}
Self.Menu := MainMenu1; {显示菜单}
原创
2021-04-29 22:16:33
404阅读
菜单组件TMainMenu 创建菜单双击TmenuMain，单击Caption就可以添加一个菜单项 菜单中添加分割线只需加“-”就可以添加一个分割线 级联菜单的设计 单击鼠标右键弹出菜单中选择Create Submenu菜单项 单选功能设计 要在设计的菜单项目中选择RadioItem属性为True，
转载
2017-11-30 11:44:00
114阅读
2评论
TMainMenu 类[二] - 成员列表
分类
名称
功能
函数
DispatchCommand
调用菜单项的 Click 方法
DispatchPopup
模拟弹出菜单
FindItem
查找菜单项
GetHelpContext
获取帮助标识
IsRightToLeft
判断 BiDiMod
原创
2021-04-30 14:16:52
309阅读
TMainMenu 类[三] - 手动建立菜单(1)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
原创
2021-04-30 14:16:51
282阅读
TMainMenu 类[五] - 快捷键的记录方式
我们从 Form 的源码中看到, 指定的快捷键是一个数字, 譬如 Ctrl+A, 对应着数字: 16449
其实这是一个 Word 类型的数字; 快捷键的参数是 TShortCut 类型的, 它定义在 Classes 单元的第92行(Delphi 20
原创
2021-04-30 14:16:42
292阅读
TMainMenu 类[三] - 手动建立菜单(6) : 更换菜单
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, M
原创
2021-04-30 14:16:46
292阅读
TMainMenu 类[三] - 手动建立菜单(3) : 设定加速键
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, M
原创
2021-04-30 14:16:49
276阅读
TMainMenu 类[四] - 所有可选的快捷键列表
键值
快捷键
3
Scroll Lock
8
BkSp
9
Tab
12
Num 5
13
Enter
16
Shift
17
Ctrl
18
Alt
20
Caps Lock
27
Esc
32
Space
33
PgUp
34
PgDn
35
E
原创
2021-04-30 14:16:44
298阅读
TMainMenu 类[三] - 手动建立菜单(7) : 指定快捷键
菜单项通过 ShortCut 属性来设定快捷键, ShortCut 是 TShortcut 类型的; TShortcut 是一个子界: 0..65535
ShortCut 的所有可选值请参加列表: http://www.cnblogs.
原创
2021-04-30 14:16:45
295阅读
TMainMenu 类[三] - 手动建立菜单(2) : 建立子菜单项
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
原创
2021-04-30 14:16:50
298阅读
TMainMenu 类[三] - 手动建立菜单(5) : 给菜单项添加事件
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialog
原创
2021-04-30 14:16:47
349阅读
效果图: 不过, 菜单事件一般是使用 ActionList 的, 添加一个 ActionList 同时添加一个方法, 实现和上面同样的功能:
转载
2019-08-05 20:27:00
89阅读
2评论
Delphi XE2 之 FireMonkey 入门(38) - 控件基础: TPopupMenu、TMenuItem、TMenuBar、TMainMenu
相关控件: TMenuBar、TPopupMenu、TMainMenu; 它们都是要包含 TMenuItem; 在设计时添加 TMenuItem
原创
2021-04-30 10:53:23
668阅读
TMainMenu 类[三] - 手动建立菜单(4) : 添加分割线与隐藏多余的分割线
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
原创
2021-04-30 14:16:48
585阅读
//动态创建四级菜单 var MainMenu:TMainMenu; SubMenu,SubMenu2,submenu3,submenu4:TMenuItem; MainMenu:=TMainMenu.Create(self); MainMenu.AutoHotkeys:=maManual; Sub
转载
2017-08-28 19:57:00
127阅读
2评论
//动态创建四级菜单 var MainMenu:TMainMenu; SubMenu,SubMenu2,submenu3,submenu4:TMenuItem; MainMenu:=TMainMenu.Create(self); MainMenu.AutoHotkeys:=maManual; Sub
转载
2017-08-31 04:01:00
56阅读
2评论
procedure TForm1.Button1Click(Sender: TObject); var MainMenu:TMainMenu; MenuItem:TMenuItem; begin //创建主菜单对象,并设置主窗口的菜单为MainMenu对象 MainMenu:=TMainMenu.C
转载
2020-02-25 00:31:00
732阅读
2评论
