本文整理自网络,侵删。
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 建立快捷方式的函数: createshortcut
Delphi:窗体的扩展样式gwl_exstyle用于setwindowlong
Delphi 万年历 程序源码下部分(包括:农历计算、24节气、星期计算、属相)
Delphi superobject json操作类的基本用法
更多相关阅读请进入《Delphi》频道 >>