Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.03;
Скачать: CL | DM;

Вниз

Типа клавиши, блин   Найти похожие ветки 

 
Checist [root]   (2003-01-26 01:16) [0]

Как мне в событии OnKeyPress сравнить нажатую клавишу с Enter, Shift, Ctrl, Delete, Home, End, Alt и Insert "ом?


 
Anatoly Podgoretsky ©   (2003-01-26 01:18) [1]

С помощью оператора сравнения "="


 
PVOzerski ©   (2003-01-26 01:40) [2]

Я бы подумать немного посоветовал. Знать-то надо лишь то, что OnKeyPress такие клавиши, как Alt и Ctrl, в принципе не ловит, надо использовать OnKeyDown или OnKeyUp. Значения виртуальных кодов клавиш можно поискать по справочникам и хелпам, а можно легко выяснить экспериментально. Часть работы я за Вас сделал, можете продолжить:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
17:
label1.caption:="Ctrl";
18:
label1.caption:="Alt";
else
label1.caption:=inttostr(key);
end;
end;


 
Юрий Зотов ©   (2003-01-26 01:47) [3]

Остальное очень сложно. Во-первых, ловим в OnKeyDown, а не в OnKeypress. Во-вторых:

Enter - VK_RETURN
Delete - VK_DELETE
Home - VK_HOME
End - VK_END
Insert - VK_INSERT

Очень сложно, да?
В заключение - см. virual key codes в справке API.



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

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

Наверх




Память: 0.47 MB
Время: 0.036 c
3-4777
michael1
2003-01-16 16:49
2003.02.03
Как в DBGrid делать горизонтальную прокрутку?


4-5322
alexteam
2002-12-18 13:46
2003.02.03
адаптирование приложения из win98 под winxp


1-4934
grusty
2003-01-24 18:45
2003.02.03
Изменение Caption в дочерней форме


4-5332
ЭД
2002-12-12 21:39
2003.02.03
Автозагрузка


1-4845
TUZ_SS
2003-01-24 15:14
2003.02.03
Набор дробных чисел на цифровой клавиатуре