Delphi TGIFImage：TImage显示gif动画

本文整理自网络，侵删。

 
Delphi TGIFImage：TImage显示gif动画
TImage显示gif动画速度设置
Image1:TImage;
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
// AnimationSpeed 设定动画速度。其实就是原始速度的百分比，例如50就是说是原始速度的50%；
TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 500;
TGIFImage(Image1.Picture.Graphic).Animate := True;
(AnimationSpeed = 0 to 1000)
如果设置AnimationSpeed = 0 则gif图像没有动画效果
 

相关阅读 >>

Delphi 通过 arp 协议获取局域网内指定 ip 地址的机器的 mac 地址

monthoftheyear：取得一个tdatetime变量的月份在年度中的索引

Delphi的tfilestream 内存流

Delphi写的一个屏幕截取函数

Delphi时间格式错误

Delphi 复制文件到剪贴板

Delphi实现qq右下角弹出信息窗口

md5.pas

Delphi 校验注册码时的技巧

Delphi 用firedac处理sqlite的日期型

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

转载请注明出处：木庄网络博客 » Delphi TGIFImage：TImage显示gif动画