Текущий архив: 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.041 c
