如何在 Firemonkey 中使用动画 gif？

Question

如何在 Firemonky 中使用动画 GIF。我可以使用 Timage 加载 gif，但它没有动画。我正在使用 Delphi 10.2 东京。

Answer 1

使用 TBitmapListAnimation。

1. 将 TImage 放在表单上
2. 像截图一样将 TBitmapListAnimation 放入 TImage 中：
3. 在 TBitmapListAnimation
   AnimationBitmap 中设置属性- 您可以使用在线转换器将 gif 拆分为帧。

http://ezgif.com/split

http://www.photojoiner.net/merge-photos/editor/#

设置另一个属性：AnimationCount = 8，AnimationRowCount = 1，Enabled = True Duration in seconds，PropertyName = Bitmap。

如果您喜欢这个答案，请投票。

Ps 如何从图像列表中创建动画位图以在 TBitmapListAnimation 中使用？ 下载这个应用程序，这里也是一个话题。

Answer 2

也许有点晚了，但在这个页面上找到了一个简单的解决方案：http : //www.raysoftware.cn/?p=559 下载文件http://www.raysoftware.cn/wp-content/uploads/2016/12 /FMXGif.rar，解压，取出 FMX.GifUtils 文件，放到你的应用程序目录下

在表单上放置一个名为 Image1 的图像组件

将使用中的文件 FMX.GifUtils 放在最上面

在您的表格中私下声明：

FGifPlayer: TGifPlayer;

在创建您的表单时：

 FGifPlayer := TGifPlayer.Create(Self);
 FGifPlayer.Image := Image1;
 FGifPlayer.LoadFromFile('youfilename.gif');
 FGifPlayer.Play;

就是这样;