Image控件播放 GIF文件



uses Vcl.Imaging.GIFImg;
procedure TForm1.Button2Click(Sender: TObject);
begin
    Image1.Picture.LoadFromFile('1.gif');
    Image1.Transparent:=True;
    TGIFImage(Image1.Picture.Graphic).AnimationSpeed :=100;     //原速度播放
end;




【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/xe2011/p/3433983.html