JZTXT

delphi 播放GIF动画

发布时间 2023-04-13 22:25:56作者: 六十五度
use GIFImg
procedure TForm1.Button1Click(Sender: TObject);
var pic_path:string;
begin
  pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\loading.gif';
  image1.Picture.LoadFromFile(pic_path);
  // AnimationSpeed 设定动画速度，值越大，速度越快
  TGIFImage(image1.Picture.Graphic).AnimationSpeed := 300;
  TGIFImage(image1.Picture.Graphic).Animate := True;
end;