Wiederholung bei gedrückter taste

[dominikkv]

warum machst du dir es so kompliziert?^^

Delphi-Quellcode:

var
  Speed: Integer;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    vk_right: speed := 5;
    vk_left: speed := -5;
  end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  speed := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Ilaufr.left:=Ilaufr.left+Speed;
end;