| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перехват сообщений мыши и клавиатуры
Калям © (2006-03-22 20:14:00)Есть невизуальный компонент, наследник TComponent. Каким образом сделать так, чтобы все сообщения о нажатии клавиши (в т. ч. F1-F12) сначала обрабатывались этим компонентом, а лишь затем теми, кем владеет форма. Аналог такого механизма реализован в форме: свойство KeyPreview. Однако форма - наследник TWinControl, а данный компонент - нет.
Наиль (2006-03-24 00:02:00) [1]В догонку к [4]
В твоём случае, вместо WM_EXITMENULOOP должен быть WM_KEYDOWN, WM_KEYUP или сообщение мыши.
Думаю пищи для размышлений достаточно.
Наиль (2006-03-23 23:50:00) [2]Хук - процедура которая получает сообщение раньше, чем тот, кому сообщение предназначено. Есть два вида хука
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;
Юрий Зотов (2006-03-23 23:19:00) [3]> Калям (23.03.06 10:40) [2]
Это вопрос к справке по Windows (cм. SetWindowsHookEx) и на форум по WinAPI.
Калям (2006-03-23 10:40:00) [4]Что есть хук?
Юрий Зотов (2006-03-22 20:36:00) [5]В конструкторе поставить клавиатурный хук, в деструкторе - снять. И учесть возможность того, что юзер может бросить на форму несколько таких компонентов.
| |
