[Energy of Fire]

Сообщение от lmikle

Вот некоторые мои эксперименты:

Код:

private
    procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;

var
 id : DWORD;

procedure TForm1.FormActivate(Sender: TObject);
Const
 VK_D = 68;
begin
 id:= GlobalAddAtom('Hotkey1');
 RegisterHotKey(Form1.Handle, id, MOD_CONTROL, VK_D);
end;

procedure TForm1.WMHotKey(var Message: TMessage);
begin
 Showmessage('Нажаты Ctrl+d');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(Form1.Handle, id);
end;

Этот код я юзал много раз...все работало...когда пришлось писать этот компонент, думал что проблем не будет, но WM_HOTKEY в компоненте не хочет ловить глобальный хук комбинации клавиш...я пробывал некоторые другие (выше описанные способы), но к сожалению ничего не вышло...может есть еще какие-нибуть мысли?...