DELPHI - Delphi 2007 已内部支持 GIF 动画了

======================================================

注：本文源代码点此下载

======================================================

delphi - delphi 2007 已内部支持 gif 动画了



delphi - delphi 2007 已内部支持 gif 动画了


以前要在 delphi 中显示 gif 动画,一种办法是使用第三方组件,别一种方法就是使用 webbrowser 组件。在 delphi 2007 中,其内部已支持 gif 了(可能在 delphi 2005 和 delphi 2006 中已支持了,未确认)。
关于 gif 的相关类是 tgifimage,在 gifimg 单元中,看下面的代码,窗体中的 gif 就动起来了:
1 uses gifimg;
2 procedure tform1.formcreate(sender: tobject);
3 begin
4// 先在窗体上放一个 timage 组件:image1;
5image1.picture.loadfromfile('c:\example.gif');
6// animationspeed 设定动画速度,值越大,速度越快;
7tgifimage(image1.picture.graphic).animationspeed := 500;
8tgifimage(image1.picture.graphic).animate := true;
9 end;
10



绿色通道:好文要顶关注我收藏该文与我联系



posted on 2008-08-13 09:35
ntire 阅读(72)
评论(0)编辑
收藏
注册用户登录后才能发表评论,请 登录 或 注册,返回博客园首页。
首页博问闪存新闻园子招聘知识库
最新it新闻:
·ios 5.1 beta3文件预示未来 siri有可能支持 ipad和 ipod touch
·android平台12月广告浏览份额51.6% 超越ios
·测试版ios源代码显示ipad 3或将支持siri
·斯蒂芬·霍金的新电脑
·京东商城2.95亿竞得北京商业地一块
»
更多新闻...
最新知识库文章:
·javascript 面向对象编程
·持续集成之“everything is code”
·持续集成之“软件自我识别”
·持续集成之戏说check-in dance
·什么是闭包。

我的理解
»
更多知识库文章...



china-pub 2011秋季教材巡展
china-pub 计算机绝版图书按需印刷服务

======================================================

在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定
这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/