Delphi中載入GIF動畫

首先，先下載TgifImage.pas單元。步驟：[project]-->[add to project...] 選擇TgifImage.pas單元然后編譯即可。

在使用TImage加載顯示gif時通常是安裝 TGifimage來擴展實現，在使用中也會有動態創建控件的情況，但如果直接加載gif圖片話，gif動畫並不會動，這就要先創建TGifImage類來加載動畫，最后再交給Timage。代碼如下：

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   objImg: TImage;
4.   objGif: TGIFImage;
5. begin
6.   if OpenDialog1.Execute then
7.   begin
8.     objImg := TImage.Create(Self);
9.     objImg.Parent := Self;
10.     objImg.SetBounds(10, 20, 140, 200);
12.     objGif := TGIFImage.Create;
13.     objGif.LoadFromFile(OpenDialog1.FileName);
14.     objImg.Picture.Assign(objGif);
16.     TGIFImage(objImg.Picture.Graphic).Animate := True;
17.   end;
18. end;