GIF动画形成

Question

可能重复：
How to use Animated Gif in a delphi form

我最近更新我的版本德尔福7到德尔福XE3的。

使用Delphi 7，我使用了一个组件在TImage上放置一个GIF，delphi XE3已经与gif兼容，不需要安装任何额外的第三方组件。

我的问题是：当我附上的GIF TImate，就变成静态的，只显示第一帧。

有没有这方面的任何命令？像Image1.Play什么的？

Answer 1

为了让动画开始这样做：

(Image1.Picture.Graphic as TGIFImage).AnimateLoop := glEnabled; 
(Image1.Picture.Graphic as TGIFImage).Animate := true; 

控制动画的速度，设置AnimationSpeed属性在0..1000之间，默认值为100.

又见@ DavidHeffernan的答案，How to use Animated Gif in a delphi form

Answer 2

所需的单位：

uses Vcl.Imaging.GIFImg 

代码动画：

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