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中如何判断mediaplayer控件所播放的文件是否播放完毕？

Delphi tstringlist indexof find 查找字符串

Delphi判断电脑是否安装了excel

Delphi编程启动服务停止服务新建服务的方法

Delphi安装*.pas扩展名的控件

Delphi 小票打印开钱箱 自动切纸指令

Delphi 小数点四舍五入问题

Delphi 在电脑屏幕上显示图片

Delphi idsmtp控件发送邮件

Delphi dbgrid 保存txt

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

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