отработка при нажатии на клавиатурные стрелки

← →
Blackgrin (2004-05-16 12:54) [0]

Вообщем трабл... достаточно глупый.. вообщем у меня почемуто не получается отловить нажатие на стрелки (клавиатурные) вверх и вниз.. в свойствах формы есть вешь - FormKeyDown,FormKeyup, FormKeyPress... первые две малость специфичны, а вот последняя почемуто не выполняется.. написал label1.Caption:=key; и поставил брейкпоинт на этой строке - не останавливается и текст не меняет ;( Попытался поиском воспользоваться - ничего нежного не нашел ;( вы уж извините за столь глупый вопрос ;(

← →
GuAV © (2004-05-16 12:58) [1]

> есть вешь - FormKeyDown,FormKeyup, FormKeyPress... первые
> две малость специфичны

Именно эти первые две и нужны.

← →
IrBisoff © (2004-05-16 13:11) [2]

procedure TForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=VK_UP then label1.Caption := "Up"; if key=VK_DOWN then label1.Caption := "Down"; end;

← →
begin...end © (2004-05-16 13:38) [3]

> ничего нежного не нашел

:)))

Попробуйте KeyPreview

отработка при нажатии на клавиатурные стрелки Найти похожие ветки