Текущий архив: 2003.11.24;
Скачать: CL | DM;

Вниз

Клавиши управления курсором   Найти похожие ветки 

← →
Teapot   (2003-11-13 23:23) [0]

Почему в 6-ой Delphi под WinXPPro клавиши управления курсором не вызывают OnKeyDown у формы? (KeyPreview включен)
Все примеры пестрят обычным Case key of vk_left, vk_right и т.д. но НЕ РАБОТАЕТ! В этот обработчик прога заходит только при нажатии буквенно-цифровых клавиш, в чем трабла?

---

← →
sniknik ©   (2003-11-14 01:49) [1]

серьезно чтоли? может перепутал OnKeyDown с onKeyPress?

XP нет, в 2000м все в порядке.

---

← →
willys ©   (2003-11-14 17:25) [2]

вот говорит хелп по этому поводу:
Navigation keys (Tab, BackTab, the arrow keys, and so on) are unaffected by KeyPreview because they do not generate keyboard events.

попробуй так:
procedure WMKeyDown(var Msg: TMessage); message WM_KEYDOWN;

---

← →
esVer ©   (2003-11-14 20:56) [3]


type
TMyForm = class(TForm)
...
procedure CMDialogKey(var message: TCMDialogKey); message CM_DIALOGKEY;
end;
...

procedure TMyForm.CMDialogKey(var message: TCMDialogKey);
begin
with message do
case CharCode of
VK_LEFT:
begin
...
end;
VK_RIGHT:
begin
...
end;
VK_UP:
begin
...
end;
VK_DOWN:
begin
...
end;
else inherited;
end;
end;


---

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

Текущий архив: 2003.11.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c