unit1.pas

来自「通过delphi源码介绍给你如果实现焦点不在的热键响应」· PAS 代码 · 共 62 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure hotykey(var msg:TMessage); message WM_HOTKEY;
  end;

var
  Form1: TForm1;
  HotKey:Integer; 

implementation

{$R *.dfm}

{ALT、CTRL和R键的虚拟键值
  MOD_ALT   =   1;     
  MOD_CONTROL   =   2;
  回车 = 13
  VK_A   =   65;
  VK_R   =   82;   }
procedure TForm1.FormCreate(Sender: TObject);
begin
  HotKey:=GlobalAddAtom('HotKey');
  //注册全局热键Ctrl + 回车
  RegisterHotKey(handle,HotKey,mod_control,13);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(handle,HotKey);
end;

procedure TForm1.hotykey(var msg:TMessage); 
begin
  if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=13) then
  begin
    Button1.Click;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('你按了ctrl+enter');
end;

end.