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 sysem.json 链式写法

crc32.pas 第二版

Delphi xe8 form.onshow的一个小问题

Delphi2010的操作界面切换到Delphi7的操作模式

Delphi 文件夹操作

Delphi 自动把combobox控件的内容里没有的内容加入列表中

Delphi unicode 转 gbk

Delphi tthread线程同步

Delphi fmx app 设置 程序图标，闪屏,程序名

Delphi测试数据库连接时间

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

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