GIF動畫形成

Question

可能重複：
How to use Animated Gif in a delphi form

我最近更新我的版本德爾福7到德爾福XE3的。

使用Delphi 7，我使用了一個組件在TImage上放置一個GIF，delphi XE3已經與gif兼容，不需要安裝任何額外的第三方組件。

我的問題是：當我附上的GIF TImate，就變成靜態的，只顯示第一幀。

有沒有這方面的任何命令？像Image1.Play什麼的？

Answer 1

爲了讓動畫開始這樣做：

(Image1.Picture.Graphic as TGIFImage).AnimateLoop := glEnabled; 
(Image1.Picture.Graphic as TGIFImage).Animate := true; 

控制動畫的速度，設置AnimationSpeed屬性在0..1000之間，默認值爲100.

又見@ DavidHeffernan的答案，How to use Animated Gif in a delphi form

Answer 2

所需的單位：

uses Vcl.Imaging.GIFImg 

代碼動畫：

TGIFImage(Image1.Picture.Graphic).Animate := True;