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

Вниз

Перехват нажатий клавиши дополнительной клавиатуры   Найти похожие ветки 

← →
SZap   (2003-03-23 15:55) [0]

пишу:
procedure TFMain.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key >= 48) and (Key <= 57) then
.......
else
.......
end;
срабатывают кнопки 0..9 тотолько основной клавиатуры, как сделать, чтобы срабатывали и дополнительной цифровой клавиатуры?

---

← →
Anatoly Podgoretsky ©   (2003-03-23 16:11) [1]

Все виртуальные клавиши приведены в справке по теме Virtual-Key Codes

---

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

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

Наверх

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