怎么处理WM_HOTKEY消息?

[3252889]

处理消息并能控制窗口上的控件就最好.

[u2m]

RegisterHotKey先注册热键消息

[cxreal]

private
HotKeyID:integer;
protected
procedure HotKey(var msg:TMessage); message WM_HOTKEY;


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

procedure TForm1.FormCreate(Sender: TObject);
begin
HotKeyID := GlobalAddAtom('HotKey');
RegisterHotKey(Handle,HotKeyID,MOD_CONTROL,13);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(Handle,HotKeyID);
end;