[Delphi]TGIFImage：TImage显示gif动画

      TImage显示gif动画速度设置

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

      (AnimationSpeed = 0 to 1000)

      如果设置AnimationSpeed = 0 则gif图像没有动画效果 

转载于:https://www.cnblogs.com/derod/archive/2009/04/27/1444428.html