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^)/