如何为TJvGIFImage设置动画？

Question

我一直在使用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？

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组件？