Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.013 c
14-6755
Н
2003-03-17 10:48
2003.04.03
Пропадает часть значков на панели компонентов


14-6660
alex134
2003-03-15 15:38
2003.04.03
Адрес


14-6715
Palladin
2003-03-16 02:45
2003.04.03
Crtl + click на панели задач


1-6482
F22
2003-03-24 12:06
2003.04.03
Подсчет слов


3-6337
paa
2003-03-14 10:22
2003.04.03
Работа с таблицей EXCEL