Delphi xe 播放 GIF 动画


本文整理自网络,侵删。

 

以前要在 Delphi 中显示 GIF 动画,一种办法是使用第三方组件,别一种方法就是使用 WebBrowser 组件。在 Delphi 2007 之后其内部已支持 GIF 了(可能在 Delphi 2005 和 Delphi 2006 中已支持了,未确认)。

关于 GIF 的相关类是 TGIFImage,在 GIFImg 单元中,看下面的代码,窗体中的 GIF 就动起来了:

uses GIFImg;
procedure TForm1.FormCreate(Sender: TObject);
begin
    // 先在窗体上放一个 TImage 组件:Image1;
    Image1.Picture.LoadFromFile('C:\Example.gif');
    // AnimationSpeed 设定动画速度,值越大,速度越快;
    TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 500;
    TGIFImage(Image1.Picture.Graphic).Animate := True;
end;

相关阅读 >>

Delphi 之 标签组件(tlabel组件)

Delphi求数组最大\最小值

Delphi程序中使用自定义的鼠标

Delphi tfdconnection只能取得50处理

Delphi format函数的用法

Delphi 2009 之 tedit 加强的功能

Delphi 间隔时间

Delphi将图片转换成文本支持转换回去

Delphi tstringlist自定义排序

Delphi json 转换成 tfdmemtable

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...