Einzelnen Beitrag anzeigen

derseitzer

Registriert seit: 12. Okt 2016
235 Beiträge
 
Delphi 10 Seattle Professional
 
#1

Image.position ohne Anfangsgeruckel

  Alt 18. Okt 2016, 13:21
Delphi-Version: 5
Hallo zusammen,

Ich programmiere gerade ein Spiel, für das ich die Position eines TImages ändern will.
Also so ähnlich: image1.position.x:= image1.position.x + 5;

Dieser obige Code wird immer aktiv, wenn ich eine Taste auf der Tastatur drücke.. bisher noch kein Problem.
Wenn ich die Taste gedrückt halte, führt er den Befehl immer wieder aus, was ebenfalls gut ist.
Also ungefähr so:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;Shift: TShiftState);
begin
if Key = VKRight then
begin
Mario.Position.X:=Mario.Position.X +8;


Das Problem ist, dass das Bild sich am Anfang zuerst langsamer bewegt und dann erst mit normaler Geschwindigkeit.
(Wenn Sie nicht wissen was ich meine:
Das gleiche passiert, wenn man einfach nur ein Timage erstellt und es dann mit STRG + beliebige Pfeiltaste steuert und die Pfeiltaste gedrückt hält.
-> zuerst langsam, dann schneller)

Frage: Wie bekomme ich eine sofortige gleichbleibende Geschwindigkeit mit meinem Code hin?
MFG derseitzer
  Mit Zitat antworten Zitat