设置全局快捷键
来源:互联网 发布:手机淘宝怎么改电脑版 编辑:程序博客网 时间:2024/06/10 04:10
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
protected
procedure hotykey(var msg:TMessage); message WM_HOTKEY;
end;
var
Form1: TForm1;
id,id2:Integer;
implementation
{$R *.DFM}
procedure TForm1.hotykey(var msg:TMessage);
begin
if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=81) then
begin
ShowMessage('Ctrl + Q ');
end;
if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=82) then
begin
ShowMessage('Ctrl + R ');
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
id:=GlobalAddAtom('hotkey');
RegisterHotKey(handle,id,mod_control,81);
id2:=GlobalAddAtom('hotkey2');
RegisterHotKey(handle,id2,mod_control,82);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,id);
UnRegisterHotKey(handle,id2);
end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
protected
procedure hotykey(var msg:TMessage); message WM_HOTKEY;
end;
var
Form1: TForm1;
id,id2:Integer;
implementation
{$R *.DFM}
procedure TForm1.hotykey(var msg:TMessage);
begin
if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=81) then
begin
ShowMessage('Ctrl + Q ');
end;
if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=82) then
begin
ShowMessage('Ctrl + R ');
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
id:=GlobalAddAtom('hotkey');
RegisterHotKey(handle,id,mod_control,81);
id2:=GlobalAddAtom('hotkey2');
RegisterHotKey(handle,id2,mod_control,82);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,id);
UnRegisterHotKey(handle,id2);
end;
- 设置全局快捷键
- 设置全局快捷键
- windows 设置全局快捷键;
- C#中设置全局快捷键
- AndroidStudio 设置全局查找快捷键
- 设置全局快捷键及快捷键编码
- 全局快捷键
- .Net 定义全局快捷键
- c#注册全局快捷键
- c# 全局快捷键
- swt 全局快捷键
- linux的全局快捷键
- 自定义全局快捷键
- Delphi使用全局快捷键
- delphi程序全局快捷键
- java全局快捷键
- PHPStrom全局搜索快捷键
- MFC注册全局快捷键
- 关于手动给ie加java plugin ,并且使用JBUILDER9下面自带的JDK
- 分页函数
- 文件遍历排序函数
- 深入C#(一)
- C#学习笔记
- 设置全局快捷键
- 分布组件对象模型(DCOM)研究
- 利用Delphi编写Socket通信程序
- ASP设计常见问题及解答精要(1) tigerwen01(转贴)
- 关于帝国2中的寻路和行军算法 zhengr(原作)
- 可爱的 Python:JPython 和 Python for .NET 内幕
- 在MFC下使用OpenGL的一个简单的例子
- VC下设置Excel单元格的边框
- 校园网接入Internet方案一例