delphi - 我如何为 TJvGIFImage 设置动画？

Question

我已经使用TGIFImage了一段时间但我遇到了一些错误所以我决定移动到TJvGIFImage这里我如何加载图像

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

但是里面没有TJvGIFImage像 in 这样的动画属性Tgifimage

例如。

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

我如何设置动画TJvGIFImage？

Answer 1

如果您尝试使用 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;

Answer 2

试试 TJvGIFAnimator 组件？