Delphi使用Image显示gif动画

delphi中，使用TGifimage这个类可以使Image显示Gif动画

// Image1:TImage;

// Image1.Picture.LoadFromFile(OpenDialog1.FileName);

TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 100;

TGIFImage(Image1.Picture.Graphic).Animate := True;

// (AnimationSpeed = 0 to 1000)

// AnimationSpeed 设定动画速度。其实就是原始速度的百分比，例如50就是说是原始速度的50%；

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

Delphi使用Image显示gif动画