hotkey的例子。
form1
........
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;
