Скачать: CL | DM;

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

← →
Модуль   (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]

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

---

← →
lookin ©   (2007-08-03 04:04) [7]

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

---

← →
MBo ©   (2007-08-03 05:42) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c