我认为 gif 动画图像没有原生支持。
最好的方法是什么?任何允许这样做的免费组件?我正在考虑使用 TImage 和 ImageList + Timer,但我需要将 gif 的每一帧导出到单独的 bmp 文件。
最佳答案
在现代 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 捐赠以纳入德尔福。
关于delphi - 如何以delphi形式使用Gif动画,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9573572/