Перехват сообщений мыши и клавиатуры

← →
Калям (2006-03-22 20:14) [0]

Есть невизуальный компонент, наследник TComponent. Каким образом сделать так, чтобы все сообщения о нажатии клавиши (в т. ч. F1-F12) сначала обрабатывались этим компонентом, а лишь затем теми, кем владеет форма. Аналог такого механизма реализован в форме: свойство KeyPreview. Однако форма - наследник TWinControl, а данный компонент - нет.

← →
Юрий Зотов © (2006-03-22 20:36) [1]

В конструкторе поставить клавиатурный хук, в деструкторе - снять. И учесть возможность того, что юзер может бросить на форму несколько таких компонентов.

← →
Калям (2006-03-23 10:40) [2]

Что есть хук?

← →
Юрий Зотов © (2006-03-23 23:19) [3]

> Калям (23.03.06 10:40) [2]

Это вопрос к справке по Windows (cм. SetWindowsHookEx) и на форум по WinAPI.

Хук - процедура которая получает сообщение раньше, чем тот, кому сообщение предназначено. Есть два вида хука
1. От Борланда. Application.HookMainWindow. Для работы внутри приложения.
2. От Микрософта. Может использоваться для перехвата сообщений чужих приложений. Приведу самый краткий из полных ответов котрые мне встречались:
Юрий Зотов © (07.06.05 01:40) [16]
Вот решение задачи в общем виде, независимо от того, какое меню, какого контрола и каким образом закрылось.
var Hook: HHOOK; function CallWndRetProc(Code, Flag, PData: integer): integer; stdcall; begin if PCWPRetStruct(PData)^.message = WM_EXITMENULOOP then MessageBox(0, "Menu closed", PChar(Application.Title), MB_OK or MB_TASKMODAL or MB_TOPMOST); Result := CallNextHookEx(Hook, Code, Flag, PData) end; { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin Hook := SetWindowsHookEx(WH_CALLWNDPROCRET, CallWndRetProc, 0, GetCurrentThreadId) end; procedure TForm1.FormDestroy(Sender: TObject); begin UnhookWindowsHookEx(Hook) end;

В догонку к [4]
В твоём случае, вместо WM_EXITMENULOOP должен быть WM_KEYDOWN, WM_KEYUP или сообщение мыши.
Думаю пищи для размышлений достаточно.

Перехват сообщений мыши и клавиатуры Найти похожие ветки