我如何制作 TJvGIFImage 动画?

how do i animate TJvGIFImage?

我已经使用 TGIFImage 一段时间了,但我遇到了一些错误,所以我决定移动到 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 组件?

如果您尝试使用 TJvGIFImage 显示动画 gif,则应使用 TJvGIFAnimator 而不是 TImage。 TJvGIFAnimator 作为动画 属性 以及一些其他动画属性。

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;