Danke für den Tipp.
Ich habe jetzt folgenden Quelltext:
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
var
GIFimg: TGIFImage;
begin
GIFImageDefaultAnimate := True;
GIFimg:= TGIFImage.Create;
try
GIFimg.LoadFromFile('C:\Pictures\fig1_running.gif');
Image1.Picture.Assign(GIFimg);
finally
GIFimg.Free;
end;
end;
Dankeschön, funktioniert alles gut.
Jetzt habe ich nur noch den Schönheitfehler, dass mein Timer mit einem Intervall von 1 Sekunde,
zu schnell ist für das Gif-Picture, welches ca. 3-4 Sekunden laufen sollte.
Wenn ich Timer1.Intervall auf 3,4,5 oder höher setze, benötigt das Programm diese 3,4,5 Sekunden als "Ladezeit".
Aber damit komme ich noch klar
.
Mfg Ghost