Delphi XE 3 形式的动画 gif [重复]答案

【问题标题】：Animated gif in Delphi XE 3 forms [duplicate]Delphi XE 3 形式的动画 gif [重复]
【发布时间】：2012-12-18 22:52:36
【问题描述】：

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

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

使用Delphi 7，我使用组件将GIF放在TImage上，delphi XE3已经兼容gif，无需安装任何额外的第三方组件。

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

有什么命令吗？像 Image1.Play 什么的？

【问题讨论】：

【解决方案1】：

所需单位：

uses Vcl.Imaging.GIFImg

动画代码：

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

【讨论】：

【解决方案2】：

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

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

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

【讨论】：

谢谢，你的回答比较完整。
如果有人想知道如何在 C++ builder 中执行此操作：((TGIFImage*)(Image1->Picture->Graphic))->Animate = true
Xe6中的TImage没有Picture.Graphic和tGifImage在XE6中怎么办？
@Amin，XE6 VCL TImage 肯定有 Picture.Graphic 属性。是否包含 Vcl.Imaging.GIFImg？还是你在使用 FireMonkey？
@LURD 是的，我正在使用 FireMonkey。