[Energy of Fire]

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

[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;

[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 в компоненте не хочет ловить глобальный хук комбинации клавиш...я пробывал некоторые другие (выше описанные способы), но к сожалению ничего не вышло...может есть еще какие-нибуть мысли?...

[lmikle]

Ага, понял в чем проблема.
На самом деле не ловит, потому-что тип компонента, который ты видимо делаешь, не является оконным. Обычно это обходится путем использования окна, на которое "бросается" компонент. В этом случае ты должен сохранить ссылку на существующую WndProc и заменить ее на свою. А в своей проверить на WM_HOTKEY, и если нет, то вызвать сохраненную. Или делать компонент наследником любого оконного (не уверен, что совсем любого, может сообщение посылается только топ-левел окнам), либо просто создавать свое невидимое окно, как делает TTimer.

[angvelem]

У него оконный компонент и даже была попытка перехватить WndProc, но видно не получилось.

[lmikle]

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

У него оконный компонент и даже была попытка перехватить WndProc, но видно не получилось.

Ну, тогда только к хирургу, или к кузнецу - руки выпрямлять.
Кстати, на torry.net можно посмотреть компонент HotKeyManager. Как раз то, что товарисч хочет сделать.

ЗЫ. Как я и сказал, TWinControl похоже не годится, нужен TWindow, хотя там вообще намешано - зачем делать оконный компонент, если все-равно перехватываешь сообщение у родительского окна?
В общем - ссылку на пример дал - разбирайтесь.