Delphi XE 3形式的GIF动画

Question

  

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

我最近将 Delphi 7 的版本更新为 Delphi XE3 。

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

我的问题是：当我将gif附加到TImate时，它变为静态，只显示第一帧。

这有什么命令吗？喜欢Image1.Play还是什么？

Answer 1

必需单位：

uses Vcl.Imaging.GIFImg

动画代码：

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

Answer 2

要启动动画，请执行以下操作：

(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