[Pegacy]

Всем привет! Необходимо реализовать чтобы действие выполнялось только когда пользователь нажимает и держит клавишу клавиатуры, как только он отпускает руку, значение возвращается в исходное, например как WSAD в играх. Я делфи начал изучать совсем недавно, буду рад если покажите на примере.

[Alegun]

Нужно кинуть на форму ТLabel

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;