Код клавиши

← →
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.

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

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;

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