在 DELPHI 中显示GIF动画（only test Delphi2007）

uses GIFImg

 

Image1:TImage;

Image1.Picture.LoadFromFile(OpenDialog1.FileName);
//  AnimationSpeed 设定动画速度。其实就是原始速度的百分比，例如50就是说是原始速度的50%；
TGIFImage(Image1.Picture.Graphic).AnimationSpeed : =  500 ;
TGIFImage(Image1.Picture.Graphic).Animate : =  True;