3

可能重复：
如何以 delphi 形式使用动画 Gif

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

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

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

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

4

2 回答 2

8

所需单位：

uses Vcl.Imaging.GIFImg

动画代码：

TGIFImage(Image1.Picture.Graphic).Animate := True;
于 2013-01-04T14:02:38.000 回答
7

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

(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

于 2013-01-04T14:39:43.143 回答