Delphi 如何设置TJVG图像的动画？

我已经使用了

TGIFImage

一段时间了，但是我还是遇到了一些bug，所以我决定转到

TJvGIFImage

这里是如何加载图像的

AGIF := TJvGIFImage.Create;
AGIF.LoadFromFile('what ever image');
AGIF.Transparent := true;  

但是在

TJvGIFImage

中没有类似于

Tgifimage

例如

 AGIF := TGIFImage .Create;
 AGIF.LoadFromFile('what ever image');
 AGIF.animate := true;
 AGIF.Transparent := true;  

---

如何设置TJvGIFImage的动画？

尝试TJvGIFAnimator组件？

如果您试图使用TJVGIIMAGE显示动画gif，则应使用TJvGIFAnimator而不是TImage。 TJVGI Animator作为动画属性以及动画的其他一些属性

procedure TForm2.LoadGif(const AFilename: string);
var
  aGif: TJvGIFImage;
begin
  aGif := TJvGIFImage.Create;
  try
    aGif.LoadFromFile(AFilename);
    JvGIFAnimator1.Image.Assign(aGif);
    JvGIFAnimator1.Animate := true;
  finally
    aGif.Free;
  end;
end;

---

TJVGI动画师不是Tgraphic！请不要用另一个问题来回答问题。@martin可能不会，但为什么不挖一点来看看它是什么？@RobKennedy Point拍摄。@DavidHeffernan Amen。请在随机应用标签之前检查标签的含义。JCL的意思和你想象的完全不同，所以我要删除它。