Обработка клавиши VK_UP(DOWN) потомком TCustomControl

← →
Rep © (2005-05-27 07:14) [0]

Создаю потомка TCustomControl и хочу обработать клавиши курсора (VK_UP и т.д.) почему-то при их нажатии процедура KeyDown не выполняется. при нажатии на другие клавиши вход в процедуру происходит.
Не пойму в чем может быть проблема.
Спасибо.

← →
ancara © (2005-05-27 09:06) [1]

Может у нас похожие ситуации?
http://delphimaster.net/view/5-1109751986/

← →
Rep © (2005-05-27 09:40) [2]

да, спасибо, один в один, то что нужно :)

← →
Просто Джо © (2005-05-27 09:44) [3]

Как нибудь эдак:
protected ... procedure WMGetDlgCode (var Message: TMessage); message WM_GETDLGCODE; ... implementation procedure TMyCustomControl.WMGetDlgCode(var Message: TMessage); begin inherited; Message.Result := Message.Result + DLGC_WANTARROWS end;

← →
Rep © (2005-05-27 11:18) [4]

Просто Джо © (27.05.05 09:44) [3]
Ага именно так.

Просто Джо © (27.05.05 09:44) [3]

5 + 1 = 6, но 5 or 1 = 5.

В случае DLGC_WANTARROWS разницы нет, но лучше соблюдать правильный стиль всегда. Чтобы он стал автоматическим.

Обработка клавиши VK_UP(DOWN) потомком TCustomControl Найти похожие ветки