delphi - 如何以delphi形式使用Gif动画

Question

我认为 gif 动画图像没有原生支持。

最好的方法是什么？任何允许这样做的免费组件？我正在考虑使用 TImage 和 ImageList + Timer，但我需要将 gif 的每一帧导出到单独的 bmp 文件。

Answer 1

在现代 Delphi 中这非常简单。一切都是内置的。将 TImage 拖放到表单上，并将动画 GIF 加载到 Picture 属性中。然后，通过 Animate 启动动画。属性:

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

您可以使用 AnimateLoop 控制动画和 AnimateSpeed 。应该很容易猜到如何再次关闭动画!

现在，由于您使用的是 Delphi 7，因此您没有内置 TGIFImage 组件。不过，您可以从Finn Tolderlund's下载代码。网站(您需要最新版本的 TGIFImage)。使用这个版本的组件，上面的代码应该可以正常工作，尽管自从几年前我从 D6 移植到 D2010 以来我个人就没有使用过它。

所有这些不同的 TGIFImage 代码实际上只是同一组件的版本，最初由 Anders Melander 编写。并于 2007 年向 Embarcadero 捐赠以纳入德尔福。