Delphi 自帶GIF控件的動畫圖片加載和播放

delphi從CodeGear時期就已經將網上廣為流傳的TGIFImage控件（源文件名是GIFImage.pas）集成到VCL中，使用方法與原版的TGIFImage存放輕微差別，

首先引用單元 Vcl.Imaging.GIFImg，配合 TImage 控件進行使用，具體如下：

方法一：

procedure LoadGIFImage(img: TImage);
var
  aGIFImage: TGIFImage;
begin
  aGIFImage:=TGIFImage.Create;
  aGIFImage.LoadFromFile('C:\test.gif');
  aGIFImage.Animate := True; //主要是多了這句來激活，否則就是一張靜止圖
  img.Picture.Assign(aGIFImage);
  aGIFImage.Free;
end;

方法二：

  
procedure LoadGIFImage(img: TImage);
begin
  img.Picture.LoadFromFile('C:\test.gif');
  if img.Picture.Graphic is TGIFImage then
    TGIFImage(img.Picture.Graphic).Animate := True;
end;