Animation mit Timer

Computer: Software & Programmierung Delphi & Pascal
#1

Hallo zusammen,
ich habe auf ein Delphi Formular drei mal die selbe Grafik drauf gelegt. (Img_1, Img_2, Img_3) Die Grafik ist ein Auto. Mithilfe eines Timers sollen die Grafiken so abwechselnt erscheinen, dass es aussieht, als ob ein Auto fährt.

Wie mache ich das am besten?

Danke für eure Hilfe!

Mfg Chris

#2

Hallo,

alle drei "TImage"s müssen zum Anfang unsichtbar sein (Visible=False)

unit Unit1;

...
implementation

var
 i: Integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 inc(i);
 case i of
 1: begin
 img\_1.Visible := True;
 img\_2.Visible := False;
 img\_3.Visible := False;
 end;
 2: begin
 img\_1.Visible := False;
 img\_2.Visible := True;
 img\_3.Visible := False;
 end;
 3: begin
 img\_1.Visible := False;
 img\_2.Visible := False;
 img\_3.Visible := True;
 i := 0;
 end;
 end;
end;

...

initialization
 I := 0;

end.

alles klar??

LG
der Chris

#3

danke!!!
chris

#4

Hallo,

> case i of  
> 1: begin  
> img\_1.Visible := True;  
> img\_2.Visible := False;  
> img\_3.Visible := False;  
> end;  
> 2: begin  
> img\_1.Visible := False;  
> img\_2.Visible := True;  
> img\_3.Visible := False;  
> end;  
> 3: begin  
> img\_1.Visible := False;  
> img\_2.Visible := False;  
> img\_3.Visible := True;  
> i := 0;  
> end;  
> end;

wer unnötig aufgeblähte Konstruktionen nicht mag, kann auch schreiben:

 img\_1.Visible := (i=1);
 img\_2.Visible := (i=2);
 img\_3.Visible := (i=3);
 if (i=3) then i := 0;

Gruß
Martin

#5

auch nicht schlecht^^ [owt]
…

#6

Hallo,

und die letzte Zeile könnte man noch (Geschmackssache) schreiben:

 i := i mod 3;

Gruß, Niels