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

标签 delphi animation delphi-7 gif animated-gif

我认为 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/

相关文章:

delphi - 如何在不修改每个表单代码的情况下为应用程序中的每个表单添加边框?

Delphi 10.4.2 FMX 如何制作平视通知?

delphi - 为动态数组分配内存 - block 头已损坏 (FastMM4)

python - 变色弹跳球

delphi - 计算两个日期之间的天数

delphi - 垂直绘制多个饼图?

android - 如何使放大/缩小停留在最终位置

javascript - 如何使用 javascript 创建自定义关键帧 css 动画

delphi - 如何合并两个 TINIfile 实例中的条目?

delphi - 从delphi 7迁移到delphi XE4时出现TSQLDataset错误