Delphi 自带GIF控件的动画图片加载和播放

本文整理自网络，侵删。

 
delphi从CodeGear时期就已经将网上广为流传的TGIFImage控件（源文件名是GIFImage.pas）集成到VCL中，使用方法与原版的TGIFImage存放轻微差别，

首先引用单元 Vcl.Imaging.GIFImg，配合 TImage 控件进行使用，具体如下：

方法一：

procedure LoadGIFImage(img: TImage);
var
  aGIFImage: TGIFImage;
begin
  aGIFImage:=TGIFImage.Create;
  aGIFImage.LoadFromFile('C:\test.gif');
  aGIFImage.Animate := True; //主要是多了这句来激活，否则就是一张静止图
  img.Picture.Assign(aGIFImage);
  aGIFImage.Free;
end;

方法二：


procedure LoadGIFImage(img: TImage);
begin
  img.Picture.LoadFromFile('C:\test.gif');
  if img.Picture.Graphic is TGIFImage then
    TGIFImage(img.Picture.Graphic).Animate := True;
end;

 

相关阅读 >>

Delphi is1251char

Delphi 线程中修改主窗体的控件内容

Delphi根据网络链接截取域名

Delphi 获取国外格式日期时间

Delphi 禁用tedit右键菜单及复制粘贴

Delphi 图像二值化

Delphi 根据文本高度确定richedit高度

Delphi idhttp解决获取utf-8网页中文乱码问题

Delphixe7关于android 检测屏幕是否处于关闭状态

Delphi 实现卸载windows应用程序（类似360软件管家-卸载程序）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 自带GIF控件的动画图片加载和播放