DelphiXE 显示GIF动画
2016-04-01 17:57
344 查看
DelphiXE可以直接显示GIF动画,不需要第三方控件的支持。只要引用GifImg单元即可。
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;
http://blog.csdn.net/shuaihj/article/details/7258313
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;
http://blog.csdn.net/shuaihj/article/details/7258313
相关文章推荐
- 参数传递方法(Delphi1.0与win16API使用pascal方法,即从左到右)
- Delphi中编写无输出函数名的DLL文件(有点意思)(400多篇博客)
- Delphi “Invalid floating point operation.”错误的解决方法(使用System单元提供的Set8087CW函数禁用浮点异常)
- Delphi XE Debug模式编译的EXE体积太大 ??
- Delphi函数总结
- delphi XE seattle 二维码开发
- Delphi 使用串口模拟工具进行串口程序开发调试
- Delphi 利用TComm组件 Spcomm 实现串行通信
- delphi7在win7系统如何安装spcomm控件
- Delphi7 [Fatal Error] ClassPas.pas(8): File not found: 'DesignIntf.dcu'
- delphi 图片TcxImage学习
- Delphi对WM_NCHITTEST消息的处理
- delphi遇到的一个实参错误(Format ‘%1’ invalid or incompatible with argument )
- Delphi与JAVA互加解密AES算法
- delphi Firemonkey ListView 使用参考
- Delphi基础:回调函数及其使用
- DelphiXE7中创建WebService(服务端+客户端) good
- Delphi-JAVA互加解密AES算法
- delphi RTTI 反射技术
- delphi 自我删除和线程池(1000行代码,需要仔细研究)