Wiederholung bei gedrückter taste

[dominikkv]

sirius hat schon recht

Delphi-Quellcode:

var
   weiter, SchonGedrückt: Boolean;

procedure bewegen;
begin
  repeat
    //bewegen
  until weiter;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not SchonGedrückt then
    begin
      weiter := false;
      schonGedrückt := true;
      bewegen;
    end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  weiter := True;
  schonGedrückt := false;
end;

oder du schaust über einen timer ob die tase gedrückt ist und bewegst dann