|
#1
|
|||
|
|||
Нажатие клавиш
Всем привет! Необходимо реализовать чтобы действие выполнялось только когда пользователь нажимает и держит клавишу клавиатуры, как только он отпускает руку, значение возвращается в исходное, например как WSAD в играх. Я делфи начал изучать совсем недавно, буду рад если покажите на примере.
|
#2
|
||||
|
||||
Нужно кинуть на форму ТLabel
Код:
var i: integer = 0; ... procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 87 { W } then inc(i); Label1.Caption:= IntToStr(i); end; procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 87 { W } then i:= 0; Label1.Caption:= IntToStr(i); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |