private procedure OnHotKey(var Message :TWMHotKey); Message WM_HotKey; { Private declarations } public { Public declarations } end;procedure Tmytest2.FormDestroy(Sender: TObject); begin UnregisterHotKey(handle,101); end;procedure Tmytest2.FormCreate(Sender: TObject); begin RegisterHotKey(Handle,101,0,VK_F10); RegisterHotKey(Handle,102,0,VK_F11); ........... end;procedure Tmytest2.OnHotKey(var Message: TWMHotKey); begin if Message.HotKey=101 then begin ................ end; end;
private
procedure OnHotKey(var Message :TWMHotKey); Message WM_HotKey;
{ Private declarations }
public
{ Public declarations }
end;procedure Tmytest2.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(handle,101);
end;procedure Tmytest2.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle,101,0,VK_F10);
RegisterHotKey(Handle,102,0,VK_F11);
...........
end;procedure Tmytest2.OnHotKey(var Message: TWMHotKey);
begin
if Message.HotKey=101 then begin
................
end;
end;