Как отловить нажатия на кнопки вверх, вниз, на панели?

← →
Модуль (2007-08-03 01:10) [0]

TMyPanel = class (TCustomPanel) private ... procedure WMKeyDown(var Msg: TWMKeyDown); message WM_KEYDOWN; procedure WMSysKeyDown(var Msg: TWMSysKeyDown); message WM_SYSKEYDOWN; protected ... end; procedure TMyPanel.WMKeyDown(var Msg: TWMKeyDown); begin beep; end; procedure TMyPanel.WMSysKeyDown(var Msg: TWMSysKeyDown); begin beep; end;

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

Что за сообщения за это отвечают?

← →
Модуль (2007-08-03 01:17) [1]

Скажем в TEdit или в TListBox не происходит смена фокуса от нажатия на эти кнопки. Нужно, чтобы и здесь небыло.

← →
oldman © (2007-08-03 02:36) [2]

ApplicationEvent?

← →
Модуль (2007-08-03 03:11) [3]

> oldman © (03.08.07 02:36) [2]
>
> ApplicationEvent?

Что ApplicationEvent?

← →
Пробегал тут (2007-08-03 03:20) [4]

Ты бы по русски спросил - ничего не понятно.

ApplicationEvent - такой компонент идёт с Delphi начиная с пятой версии им можно ловить все сообщения винды. Набери в справке эти иероглифы только впереди подставь латинскую "T" и получишь "Что ApplicationEvent".

← →
Модуль (2007-08-03 03:51) [5]

> Пробегал тут (03.08.07 03:20) [4]
>
> Ты бы по русски спросил - ничего не понятно.

Потому, что это сложно. Это для мастеров вопрос, а не для "пробегающих тут".

> ApplicationEvent - такой компонент идёт с Delphi

Да ну? Мне не нужен в компоненте ещё один компонент.

← →
Пробегал тут (2007-08-03 04:00) [6]

Кхм... Повежлее бы а? Ну как хочешь. Хозяин барин;-)

Другие. А какие другие кнопки нормально ловятся?

http://delphimaster.net/view/1-1185387039/

Как отловить нажатия на кнопки вверх, вниз, на панели? Найти похожие ветки