Ein Gif in Delphi einfügen

[himitsu]

Und im ScreenShot fehlt die Dateiendung.

TPicture kann in älteren Delphis nur Anhand der Dateiendung den passeden TGraphic-Nachfahren automatisch auswählen.
Gibt es keine Dateiendung oder will man aus einem Stream laden, dann muß man den passenden TGraphic-Typen selber bereitstellen.

z.B.

Delphi-Quellcode:

Temp := TGifImage.Create;
Image1.Picture.Graphic := Temp;
Temp.Free;  // der Setter von "Graphic" erstellt sich eine Kopie des Objektes
Image1.Picture.Graphic.LoadFromFile(...);

Zusätzlich ist der "feste" Dateipfad natürlich suboptimal. Ich hoffe das wird so nicht im entgültigen Programm verwendet.