unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
HotKey1: THotKey;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
procedure MsgMenu(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Menus; {本例无须在窗体上添加 TMainMenu; 是动态建立菜单的}
var
MyMenu: TMainMenu;
Item: TMenuItem;
{让各菜单调用的测试过程}
procedure TForm1.MsgMenu(Sender: TObject);
begin
if Sender is TMenuItem then
ShowMessage(TMenuItem(Sender).Caption);
end;
{动态建立菜单}
procedure TForm1.FormCreate(Sender: TObject);
begin
MyMenu := TMainMenu.Create(Self);
Self.Menu := MyMenu;
Item := TMenuItem.Create(MyMenu);
Item.Caption := 'TestMenu';
MyMenu.Items.Add(Item);
Item := TMenuItem.Create(MyMenu);
Item.Caption := 'Menu-1';
Item.OnClick := MsgMenu;
MyMenu.Items[0].Add(Item);
Item := TMenuItem.Create(MyMenu);
Item.Caption := 'Menu-2';
Item.OnClick := MsgMenu;
MyMenu.Items[0].Add(Item);
Item := TMenuItem.Create(MyMenu);
Item.Caption := 'Menu-3';
Item.OnClick := MsgMenu;
MyMenu.Items[0].Add(Item);
Button1.Caption := '设置给第一个子菜单';
Button2.Caption := '设置给第二个子菜单';
Button3.Caption := '设置给第三个子菜单';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.Menu.Items[0][0].ShortCut := HotKey1.HotKey;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Self.Menu.Items[0][1].ShortCut := HotKey1.HotKey;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Self.Menu.Items[0][2].ShortCut := HotKey1.HotKey;
end;
end.
快捷键设置控件: THotKey [2] - 自定义菜单快捷键
原创
©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,请联系作者获取转载授权,否则将追究法律责任
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
AE2020快捷键大全
本文归纳出After Effects常用快捷键大全,供爱好者参考。
关键帧 工作区 AE After Effects 快捷键 -
Premiere 2020常用高频快捷键
本文给出Premiere2020常用快捷键参考。
快捷键 Pr Premiere -
el-date-picker 日期范围的快捷键-样式优化及最近1年等时间距离计算实现
el-date-picker 快捷键手动实现对应日期范围计算及样式优化。
前端 elementui el-date -
idea选中代码执行快捷键、idea执行选中代码快捷键
Alt+F8 idea执行选中代码 、、、idea选中代码执行
java java教程 java开发 -
puppeteer快捷键 pl快捷键
PL/SQL使用技巧点滴 1.PL/SQL的运行:选中SQL语句-》按F8。 2.查看一个表的创表语句:按住Ctrl用鼠标点击你要看的那个表就可以了。 3.编辑一个存储过程可以查看它的错误: 4.删除一行快捷键:CTRL+Y; 5.保存当前编辑窗口样式:Window-&
puppeteer快捷键 PLSQL Developer 快捷键 数据库 SQL