GIF-Animtion mit TImage anzeigen?!

[Y.Elm]

Es ist nicht nötig, mehrere Bilder zu laden und sich daraus eine Animation zu basteln.
Ab Delphi 2007 wurde TGIFImage in Delphi integriert. Damit kann man ein animiertes GIF einfach in ein TImage laden und dieses wird automatisch abgespielt.
Dazu sind folgende Schritte nötig:

Delphi-Quellcode:

uses {...} GIFImg; // Ermöglicht einem TImage das Abspielen von GIFs
procedure TForm1.FormCreate(Sender: TObject);
begin
  GIFImageDefaultAnimate := True; // Animation aktivieren
  Image1.Picture.LoadFromFile('C:meineAnimation.gif'); // Bild laden
end;

Weitere Informationen und ein hilfreiches FAQ findet man auf dieser Seite.