• Registered: 2015-10-09
  • Posts: 115

Topic: GIF

Добрый день, можно ли ка кто на форме разместить анимированный GIF

  • Registered: 2014-02-14
  • Posts: 10,294

Re: GIF

Можно.

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    Form1.DoubleBuffered := True; // stops flickering
    Form1.Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'gif.gif');
    Form1.Image1.AutoSize := True;
    TGIFImage(Form1.Image1.Picture.Graphic).Animate := True;// gets it goin'
    TGIFImage(Form1.Image1.Picture.Graphic).AnimationSpeed:= 500;// adjust your speed
end;

Проект с примером:

Post's attachments

Attachment icon GIF.zip 106.47 kb, 288 downloads since 2019-03-05 

Dmitry.