delphi从CodeGear时期就已经将网上广为流传的TGIFImage控件(源文件名是GIFImage.pas)集成到VCL中,使用方法与原版的TGIFImage存放轻微差异,spa
首先引用单元 Vcl.Imaging.GIFImg,配合 TImage 控件进行使用,具体以下:code
方法一:blog
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;
方法二:class
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;