also bewegen tut sich da schon alles, das problem ist nur , dass es am anfang durch diese Eigenschaft der Tastatur ert nur 1 macht, dann den rest.
erklärung: ani gibt an, welche animation ablaufen soll, 11 ist laufen rechts
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ani in [11..14] then
begin
Twait.enabled:=false;
Tani.enabled:=true;
case key of
vk_right:
begin
ani:=11;// 1=gehen 1=rechts
end;
end;
end;
procedure TForm1.TaniTimer(Sender: TObject);
begin
case ani of
11:
begin
Ilaufr.left:=Ilaufr.left+5;
end;
end;
end;
also nur mal auf das minimale begrenzt