Вниз
Скачать: CL | DM;

Обработка клавиши 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]
Ага именно так.


← →
Юрий Зотов ©   (2005-05-27 11:35) [5]

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

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

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


← →
Просто Джо ©   (2005-05-29 03:00) [6]


>  [5] Юрий Зотов ©   (27.05.05 11:35)

Да, спасибо за напоминание. Дурной стиль, знаю.



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

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



Память: 0.46 MB
Время: 0.029 c
2-1132831664
Officeman
2005-11-24 14:27
2005.12.18
Про Слои - компонентов на форме


14-1132500496
Piter
2005-11-20 18:28
2005.12.18
Помогите, пожалуйста, опознать песенку...


14-1133134636
Strech
2005-11-28 02:37
2005.12.18
Восстановление удаленного файла


2-1133445304
oleggar
2005-12-01 16:55
2005.12.18
word8


2-1133518721
msgipss
2005-12-02 13:18
2005.12.18
как можно использовать наследование TService




   Наверх