Delphi 执行一次后停止 GIF

Question

我的 Delphi 项目中的 GIF 有问题（我使用的是 Delphi 10.4 Sydney）。我无法在一次执行后停止 GIF。 我不想无限循环。

我试过这个：

frameGif := (Image1.Picture.Graphic as TGIFImage);
frameGif.AnimateLoop := false;
frameGif.Animate := true;

GIF 在一次执行后不会停止。

我找到了这些解决方案：

我们可以停止 TGIFImage delphi 组件中的动画吗？ < /一>

<一href="https://stackoverflow.com/questions/47117744/tgifimage-with-animated-gif-events-are-not-working-how-to-detect-animation-p">带有动画 GIF 的 TGIFImage - 事件不是工作 - 如何检测动画进度？

TGIFRenderer 方法仍然是唯一的方法吗？

当我在程序执行期间以编程方式创建 GIF 时，如何使用 OnLoop 事件（如果必须）？

此致....