首先,先下载TgifImage.pas单元。步骤:[project]-->[add to project...] 选择TgifImage.pas单元然后编译即可。
在使用TImage加载显示gif时通常是安装 TGifimage来扩展实现,在使用中也会有动态创建控件的情况,但如果直接加载gif图片话,gif动画并不会动,这就要先创建TGifImage类来加载动画,最后再交给Timage。代码如下:
- procedure TForm1.Button1Click(Sender: TObject);
- var
- objImg: TImage;
- objGif: TGIFImage;
- begin
- if OpenDialog1.Execute then
- begin
- objImg := TImage.Create(Self);
- objImg.Parent := Self;
- objImg.SetBounds(10, 20, 140, 200);
- objGif := TGIFImage.Create;
- objGif.LoadFromFile(OpenDialog1.FileName);
- objImg.Picture.Assign(objGif);
- TGIFImage(objImg.Picture.Graphic).Animate := True;
- end;
- end;