Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#5

AW: einfache Animation

  Alt 20. Mär 2011, 12:26
Ausserdem brauchst du einen Zähler für deine Bilder.
Diese Zählervariable sollte im Formular liegen:
Delphi-Quellcode:
TForm1 = class(TForm)
...
private
  FBildNr : integer;
...
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // ein cooler Trick, wie man ohne "case" auskommt
  Image1.Visible := (FBildNr = 0);
  Image2.Visible := (FBildNr = 1);
  Image3.Visible := (FBildNr = 2);
  Inc(FBildNr);
  if FBildNr > 2 then
    FBildNr := 0;
end;
  Mit Zitat antworten Zitat