delphi - Delphi XE 3 形式的动画 gif

Question

Possible Duplicate:
How to use Animated Gif in a delphi form

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

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

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

有什么命令可以做到这一点吗？像 Image1.Play 之类的？

Answer 1

所需单位:

uses Vcl.Imaging.GIFImg

动画代码:

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