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 实现文件占坑

Delphi superobject 序列数据集

Delphi 链接文件名合并

Delphi 如何在toolbar中的toolbutton上显示文字

Delphi xe5获取android imei id

Delphi 62 进制的简单实现

Delphi 双击隐藏tabsheet

Delphi 实现定时功能

Delphi 和微软的 azure 云存储

Delphi 安卓获得设备 id

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

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