Скачать: CL | DM;

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

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

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


:)))

---

← →
Mim1 ©   (2004-05-16 13:42) [4]

Попробуйте KeyPreview

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.035 c