如何爲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組件？