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 richedit1 设置字体

Delphi 建立最小的应用程序

Delphi对access文件加密

Delphi 取正在运行的dll或exe的路径

Delphi drawing text 绘制文本

Delphi windows 根据进程名结束进程的代码

Delphi android拍照报错

Delphi删除文件

Delphi image1 图像旋转90

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

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