Brauche Hilfe bei einer Gehanimation!

[raysto]

Zitat von nuclearping:

Zitat:

Code:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Player.Picture.LoadFromFile('.\Graphiken\Charanimation1.ico');
  Player.Picture.LoadFromFile('.\Graphiken\Charanimation2.ico');
  Player.Picture.LoadFromFile('.\Graphiken\Charanimation3.ico');
end;

Da brauchst du dich nicht wundern, dass er immer das letzte Bild der Animation anzeigt, wenn der Timer-Event innerhalb von ein paar Millisekunden (wenn überhaupt soviel) von oben nach unten durchrauscht ...

Versuchs mal so:

Delphi-Quellcode:

var
   movex,movey, 
   AniIndex : integer;

procedure TForm1.FormCreate(Sender: TObject); //Einstellungen und Koordinaten
begin
  form1.DoubleBuffered :=true;
  movex := 1;
  movey := 225;

  AniIndex := 0;
  Timer2.Interval := 125;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Timer2.Enabled := FALSE;
  Player.Picture.LoadFromFile('.\Graphiken\Charanimation' + IntToStr(AniIndex + 1) + '.ico');

  Inc(AniIndex);
  if AniIndex > 2 then
    AniIndex := 0;
  Timer2.Enabled := TRUE;
end;

Zitat:

Und das mit Andorra versteh ich nicht. Wie benutze ich Andorra?

Schau dir mal die Tutorials an: http://www.delphipraxis.net/dp_searc...rums_string=36

Danke für die ganze Hilfe, aber da ich noch nicht so fortgeschritten bin, hbae ich mir einfach mal das oben genommen es läuft auch perfekt, ausser dass mein männchen weiterläuft (also die animation) wenn ich nichts mehr drücke xD Kann ich das noch irgendwie beheben?