Delphi VCL GIF 动画

本文整理自网络，侵删。

 
Delphi XE10 的 VCL 已经内置支持 GIF，不需要第三方控件。

uses Vcl.Imaging.GIFImg
procedure TForm2.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('E:\tt\abc.gif');
  TGIFImage(Image1.Picture.Graphic).Animate := True;  //加上这句话，图就能动。
end;

――――――――――――――――

原文链接：https://blog.csdn.net/pcplayer/article/details/69666574
 

相关阅读 >>

Delphi压缩库 zlibex 介绍

Delphi validatename 过滤特殊字符

Delphi tadodataset 加载数据到fdmemtable1

Delphi winapi: getmodulefilename、getmodulehandle

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

Delphi怎么样选择pagecontrol1的分页

Delphi label设置为背景透明

Delphi 判断网络链接文件是否存在

Delphi datetimepicker控件日期格式

Delphi 程序重新启动自身

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

转载请注明出处：木庄网络博客 » Delphi VCL GIF 动画