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

Вниз

Код клавиши   Найти похожие ветки 

 
KyRo   (2005-07-09 10:45) [0]

Не могу найти в Windows.pas коды  клавиш Page up , Page Down , Enter  Может кто знает подскажите ?


 
TUser ©   (2005-07-09 11:01) [1]

Для каких целей это надо? См. vk_xxx и #13


 
KyRo   (2005-07-09 11:10) [2]

Мне нужно перехватить их нажатия в программе. VK_xxx их там вроде нет , есть только инсерт и делит . А что за #13 ?


 
Virgo_Style ©   (2005-07-09 11:17) [3]

VK_PRIOR = 33;
VK_NEXT = 34;
VK_RETURN = 13;

Вроде так.


 
TUser ©   (2005-07-09 11:18) [4]

> Мне нужно перехватить их нажатия в программе.

В конкретном компоненте - OnKeyDown, OnKeyUp. Туда передается параметр Key, который можно проверить на равенство с VK_PGUP и др. (точно константы я не помню, но что-то типа этого) Если глобально - см. TActionList.


 
TUser ©   (2005-07-09 11:18) [5]

> А что за #13 ?

Символ в номером 13, соответсвует клавише Enter. Можно ловить в OnKeyPress.


 
KyRo   (2005-07-09 11:21) [6]


> Virgo_Style ©   (09.07.05 11:17) [3]
> VK_PRIOR = 33;
> VK_NEXT = 34;
> VK_RETURN = 13;
>
> Вроде так.


> TUser ©   (09.07.05 11:18) [5]
> > А что за #13 ?
>
> Символ в номером 13, соответсвует клавише Enter. Можно ловить
> в OnKeyPress.


Спасибо щас буду пробовать.


 
palva ©   (2005-07-09 11:21) [7]

procedure TForm1.KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if Key = VK_NEXT then ShowMessage ("PgDown");
 if Key = 13 then ShowMessage ("Enter")
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.024 c
9-1113467814
parovoZZ
2005-04-14 12:36
2005.07.25
Техника QuadTree


3-1118726329
analyzer
2005-06-14 09:18
2005.07.25
Блокировка операций изменения данных


3-1118267255
highlander
2005-06-09 01:47
2005.07.25
Использование маски в QRDBText


1-1120737371
-ViLLaIN-
2005-07-07 15:56
2005.07.25
Программа и Диспечер задач


1-1120543864
sergg
2005-07-05 10:11
2005.07.25
При запуске на другой ЭВМ приложению не хватает qtintf70.dll