加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

如何使用Delphi形式的动画Gif

发布时间:2020-12-15 10:17:00 所属栏目:大数据 来源:网络整理
导读:我认为没有本地支持gif动画图像。 最好的方法怎么样?任何允许的免费组件?我正在考虑使用TImage和ImageList Timer,但是我需要将gif的每个帧导出到一个分离的bmp文件中。 解决方法 它在现代德尔福很简单。它全部内置。将一个TImage放到窗体上,并将动画GIF
我认为没有本地支持gif动画图像。

最好的方法怎么样?任何允许的免费组件?我正在考虑使用TImage和ImageList Timer,但是我需要将gif的每个帧导出到一个分离的bmp文件中。

解决方法

它在现代德尔福很简单。它全部内置。将一个TImage放到窗体上,并将动画GIF加载到Picture属性中。然后,通过 Animate属性启动动画:
(Image1.Picture.Graphic as TGIFImage).Animate := True;

您可以使用AnimateLoopAnimateSpeed控制动画。应该很容易猜到如何重新切换动画!

现在,由于您使用的是Delphi 7,所以您没有内置TGIFImage组件。但是,您可以从Finn Tolderlund’s网站下载代码(您想要最新版本的TGIFImage)。使用这个版本的组件,上面的代码应该可以正常工作,虽然我个人没有使用它,因为我几年前从D6移植到D2010。

所有这些各种TGIFImage代码实际上只是相同组件的版本,最初由Anders Melander编写,并于2007年捐赠给Embarcadero以包含在Delphi中。

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读