Question

delphi程序中定义热键的方法

delphi程序中定义热键的方法，我需要设置3个热键，比如 Ctrl+Alt+8 ，要3个组合键，要全局热键哦。。。给个实例代码，谢谢

Answer 1

Unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, StdCtrls, Buttons;

Type
TFrm_Main = Class(TForm)
HotKey1: THotKey;
BitBtn1: TBitBtn;
Procedure FormDestroy(Sender: TObject);
Procedure BitBtn1Click(Sender: TObject);
private
V_fsmodifiers, V_VK: Integer;
V_atom: atom;
public
Procedure HotKey(Var Msg: TMessage); message WM_HOTKEY;
End;

Var
Frm_Main: TFrm_Main;

Implementation

{$R *.dfm}

Function Get_Hotkey(ahotkey: TShortCut; Var fsmodifiers, VK: Integer): Boolean;
Var
alistString: TStringlist;
I: Integer;
atmstr: String;
achar: Char;
Begin
alistString := TStringlist.Create;
Try
alistString.Delimiter := '+';
alistString.DelimitedText := ShortCutToText(ahotkey);
I := alistString.Count;
If I > 0 Then
Begin
If alistString.IndexOf('Alt') <> -1 Then
fsmodifiers := MOD_Alt;
If alistString.IndexOf('Ctrl') <> -1 Then
fsmodifiers := fsmodifiers + MOD_CONTROL;
If alistString.IndexOf('Shift') <> -1 Then
fsmodifiers := fsmodifiers + MOD_SHIFT;
atmstr := alistString.Strings[I - 1];
achar := atmstr[1];
VK := Ord(achar);
Result := True;
End
Else
Result := False;
Finally
alistString.Free;
End;
End;

Procedure TFrm_Main.FormDestroy(Sender: TObject);
Begin
GlobalDeleteatom(V_atom); //程序退出取消全局热键
Deleteatom(V_atom);
End;

Procedure TFrm_Main.BitBtn1Click(Sender: TObject); {注册全局热键}
Var
aHotKey: TShortCut;
Begin
aHotKey := HotKey1.HotKey; //win32页的组件 HotKey
V_fsmodifiers := 0;
V_VK := 0;
If Get_Hotkey(ahotkey, V_fsmodifiers, V_VK) Then
Begin
V_atom := Globaladdatom('hot key');
If Not RegisterHotkey(Handle, V_atom, V_fsmodifiers, V_VK) Then
Begin
GlobalDeleteatom(V_atom); //取消全局热键
Deleteatom(V_atom);
End;
End;
End;

Procedure TFrm_Main.HotKey(Var Msg: TMessage); { 监听全局热键 }
Begin
If (Msg.LParamHi = V_VK) And (Msg.LParamLo = V_fsmodifiers) Then
Begin
Close;
End;
End;

End.

Answer 2

安装Jedi插件。里面有热键控件。

Answer 3

actionlist 控件
新建事件项 有个 ShortCut 是定义事件的 热键的
我觉得这个方法更简单点...