TGifImage bleibt stehen

[Bernhard Geyer]

Und mit jedem Button-Click hast Du eine schöne speicherlücke.

Lege das Control mal auf dein Formular und setze ein Property der Art Active/Animate auf True.


oder dynamisch erzeugt:

Delphi-Quellcode:

type
  TForm1
    ..
  protected
    demo : TGifImage;
    ...
  end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(demo) then
  begin
    demo := TGifImage.Create(self);
    demo.LoadFromFile(extractfilepath(application.ExeName) + 'seegeranim.gif');
    demo.Left := 0;
    demo.Top := 0;
    demo.Right := 200;
    demo.Bottom := 200;
    demo.Parent := self;
    demo.Animage := True; // <- könnte anderen namen haben
end;