Нажата ли клавиша-стрелка

← →
Ник (2002-04-04 22:28) [0]

Доброе время суток. Как обработать нажатие клавиш-стрелок?
Пишу на событии OnKeyPress. Другие клавиши срабатывают, стрелки - нет.

← →
Nikolay (2002-04-04 22:32) [1]

код в студию :)

← →
Ник (2002-04-04 22:39) [2]

KeyPreview у формы стоит в true.

procedure TfmMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=37 then ShowMessage("gg"); end;

Не срабатывает. Если поставить код Enter, Esc и т.д. то работает.

← →
al creator (2002-04-04 22:45) [3]

я так не пробовал...
Example:
Memo1.Perform(WM_Char,ORD(#..),0)
или у формы можно установить свойство KeyPreview в True и обрабатывать событие OnKeyPress

← →
Nikolay (2002-04-04 23:35) [4]

обрабатывай vk_left.... и т.д.

← →
Pat (2002-04-04 23:50) [5]

>Ник
Проверил твой пример, все работает

Нажата ли клавиша-стрелка Найти похожие ветки