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;