Hi..
Ich hab ein Image und folgenden Code um es auf Tastendruck zu bewegen:
Delphi-Quellcode:
procedure TFormMain.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If key=37 then
ImageChar.Left := ImageChar.Left - 10;
end;
Nun habe ich das Problem, dass wenn ich die Taste gedrückt halte sich das Schiff 10 Pixel nach links bewegt, für ein parr Millisekunden stoppt, dann weiter durchgängig immer weiter nach links geht.
Wie kann ich das Stoppen nach dem ersten Bewegen verhindern?