[Energy of Fire]

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

[lmikle]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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

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

Код:

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

[lmikle]

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

[angvelem]

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

[lmikle]

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

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

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

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

[NumLock]

сам компонент:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

unit HotKey;   interface   uses   Windows, Messages, Classes;   type   THotKey = class(TComponent)   private     FOnHotKey: TNotifyEvent;     FWnd: HWND;     procedure WndMethod(var Message: TMessage);   public     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   published     property OnHotKey: TNotifyEvent read FOnHotKey write FOnHotKey;   end;   implementation   { THotKey }   constructor THotKey.Create(AOwner: TComponent); begin   inherited Create(AOwner);   FWnd:=AllocateHWnd(WndMethod);   RegisterHotKey(FWnd, 1, <font color="Red">MOD_CONTROL</font>, Ord('<font color="red">G</font>')); end;   destructor THotKey.Destroy; begin   UnregisterHotKey(FWnd, 1);   DeallocateHWnd(FWnd);   inherited Destroy; end;   procedure THotKey.WndMethod(var Message: TMessage); begin   if Message.Msg=WM_HOTKEY then   begin     if Assigned(FOnHotKey) then FOnHotKey(Self);   end else     Message.Result:=DefWindowProc(FWnd, Message.Msg,       Message.WParam, Message.LParam); end;   end.

использование:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

uses   HotKey,   type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure HotKeyClick(Sender: TObject);   procedure TForm1.FormCreate(Sender: TObject); begin   with THotKey.Create(Self) do     OnHotKey:=HotKeyClick; end;   procedure TForm1.HotKeyClick(Sender: TObject); begin   ShowMessage('HotKeyClick'); end;

[Energy of Fire]

Этот вариант, несомненно, хорош, но как он будет выполнять событие, для не динамически созданного компонента?...ведь для динамического используется THotKey.Create(Self).OnHotKey:=HotKeyClick.И еще один вопрос...можно ли без переприсваивания сделать рабочим событие OnHotKey (как для динам. созданного компонета, так и для обыкновенного, и если можно, то как...) ?

[NumLock]

Сообщение от Energy of Fire

но как он будет выполнять событие, для не динамически созданного компонента?

точно также. свойство OnHotKey published. т.е. через инспектор объектов можно будет обработчик задать. вспомни как для динамической кнопки обработчик присваивается...

[Energy of Fire]

На этот вопрос:... можно ли, без переприсваивания сделать рабочим событие OnHotKey (как для динам. созданного компонета, так и для обыкновенного, и если можно, то как...?
Если кому-нибудь будет интересно, то чтобы решить эту проблему, я использовал вместо procedure WndMethod(var Message: TMessage), вот это procedure HookProc(var Msg: TMessage); virtual и обязательно это занесите в protected, т.к. если тестить это все отладчике, то он не заходит в процеруду, если она лежит в public или private (это я говарю, так как сам продалбался несколько часов...как исправилась проблема с нерабочим событием я пока и сам толком не понял)

Всем спасибо за помощь в решении проблемы!

[NumLock]

Сообщение от Energy of Fire

хотелось бы просто сделать пару кликов на событие в инспекторе, и написать туда какой-нить код...?

на самом деле будет даже 1 клик на OnHotKey в инспекторе и Delphi сама создаст код обработчика, как она это делает для кнопок.

[Energy of Fire]

...кто нибудь может подсказать, как работает DefWindowProc, если HookProc ловит WM_HOTKEY...и зачем вообще эта процедура...в инете читал, что DefWindowProc нужен в том случае, если сообщение не поймали...и нужно пустить дальше его в windows.Но если я поставлю комбинацию клавиш ctrl+v и попытаюсь вставить что-нибудь в блокнот, то хоткей перехватит это нажатие,выполнит событие, и дальше не передаст хотя я поставил DefWindowProс для передачи сообщения дальше...как сделать чтобы сообщение дошло и до приложения и передала дальше в винду и где-нибудь в текстовом блокноте сработала вставка.

Код:

1 2 3 4 5 6 7 8

procedure THotKey.HookProc(var Msg: TMessage); begin   if (Msg.Msg=WM_HOTKEY)  then   begin     if Assigned(FOnHotKey) then FOnHotKey(Self);   end;   Msg.Result:=DefWindowProс(FWnd,Msg.Msg,Msg.WParam, Msg.LParam); end;

lmikle: Пользуемся тегами!!!

[angvelem]

В том варианте как у тебя написано, после обработки Msg.Msg=WM_HOTKEY управление передаётся на обработчик по-умолчанию (DefWindowProс), но если сделать так:

Код:

1 2 3 4 5 6 7 8 9

procedure THotKey.HookProc(var Msg: TMessage); begin   if (Msg.Msg = WM_HOTKEY) then   begin     if Assigned(FOnHotKey) then FOnHotKey(Self);     Exit;   end;   Msg.Result := DefWindowProс(FWnd,Msg.Msg,Msg.WParam, Msg.LParam); end;

то обработка прервётся для данного сообщения и в "Блокнот" уже ничего не вставишь. Можешь принудительно послать на дальнейшую обработку:

Код:

1 2 3 4 5 6 7 8 9

procedure THotKey.HookProc(var Msg: TMessage); begin   if (Msg.Msg = WM_HOTKEY) then   begin     if Assigned(FOnHotKey) then FOnHotKey(Self);     Msg.Result := DefWindowProс(FWnd,Msg.Msg,Msg.WParam, Msg.LParam);   end;   Msg.Result := DefWindowProс(FWnd,Msg.Msg,Msg.WParam, Msg.LParam); end;

[Energy of Fire]

в первом случае вместо ехит у меня было раньше елс и там стояла процедура DefWindowProс, во втором случае твой код практически не отличается от моего, но ты непонятно для чего ставишь опять DefWindowProс(я от безысходности попробывал 2 твои варианта ни один не работает)...могу скинуть то, что имею сейчас…покавыряемся вместе…

[NumLock]

ну естественно, что если поставить хоткей на Ctrl+V, то в Блокнот ничего не вставится - ему просто не будет приходить WM_PASTE. и DefWindowProc тут абсолютно ни при чем. чтобы Блокноту приходило WM_PASTE нужно в обработчике OnHotKey написать код, к примеру такой:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   AWindow: THandle;   AThreadId: Cardinal;   AProcessId: Cardinal; begin   Windows.Beep(1000, 100); //////////   AWindow:=GetForegroundWindow;   AThreadId:=GetCurrentThreadId;   AProcessId:=GetWindowThreadProcessId(AWindow, nil);   AttachThreadInput(AThreadId, AProcessId, True);   <font color="Red">SendMessage(GetFocus, WM_PASTE, 0, 0);</font>   AttachThreadInput(AThreadId, AProcessId, False); end;

теперь активному окну (the window that has the keyboard focus) будет посылаться сообщение WM_PASTE.