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;

推荐分享