Brauche Hilfe bei einer Gehanimation!

[nuclearping]

Zitat von raysto:

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?

Den Timer2.Enabled immer auf FALSE lassen. Ausser:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    40:
      moveY := moveY+5;// runter
    38:
      movey := moveY-5;// hoch
    37:
      movex := moveX-5;// links
    39:
      movex := moveX+5;// rechts
  end;

  if (Key >= 37) and (Key <= 40) then
    Timer2.Enabled := TRUE;

  Char;
end;

Dazu machst du noch ein OnKeyUp-Event:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key >= 37) and (Key <= 40) then
    begin
      Timer2.Enabled := FALSE;
      Player.Picture.LoadFromFile('.\Graphiken\Charanimation0.ico');
    end;
end;

Nun wird die Gehanimation nur solange ausgeführt, wie eine der Richtungstasten gedrückt wird. Andernfalls wird der Timer2 deaktiviert und die Charanimation0.ico geladen.

[rollstuhlfahrer]

Noch ein Wort von mir: Die Werte 37 bis 40 kannst du durch dienentsprechenden Konstanten VK_DOWN, VK_UP, VK_RIGHT und VK_LEFT ersetzen. Somit wäre sogar der CASE-Zweig lesbar (auch ohne die Kommentare).

Bernhrd

[raysto]

Nur noch eine Frage: was heißt "Inc" im code den ich bekommen habe? Was macht das? Wenn ichd as nicht weiß, ist es ein wenig scheiße wenn ich meinem Lehrer dann gegenüberstehe und kein wort rausbringe

[DeddyH]

Ist Deine Hilfe kaputt? System.Inc

[raysto]

Sorry ich vergess es immer wieder :/

[nuclearping]

Inc = Increment = Erhöhen.

Dafür gibts aber auch die Hilfe. Cursor in das Wort setzen und F1 drücken.