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;