怎么能够在程序中显示.gif格式的图片 怎样能够在程序中显示.gif格式的图片;-------我是想让一个.gif图片显示在桌面上;在图片上右键设置【设置为桌面项】后;图片不动了;^_^所以想用程序实现一下;但image控件好像没有显示.gif的功能; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //用TWEBBROWSER也行(在INTERNET面板)procedure TForm1.Button2Click(Sender: TObject);var flag:OleVariant; urL:string;begin urL:=extractfilepath(application.exename)+'world.gif'; WebBrowser1.Navigate(urL,flag,flag,flag,flag);end; TGIFImage v2.2 For D7有名的TGIFImage动画显示组件,支持D7。http://www.2ccc.com/article.asp?articleid=1142 补充:楼上是指qhf503(和风) 用TWEBBROWSER:) 怎样建立储存登陆用户信息的数据表? 不知道这个能否实现?(关于DBgridEh打印问题)急! turbo delphi内部测试版泄漏~ 散分! 如果整个项目都要用到Variants这个单元,是不是每个单元都要申明? 555555我得参与分怎么全没了????? 小鸟继续求助:使自己的程序在系统后台运行,无论在桌面还是系统托盘都看不见 !!! listitem.Subitems.add只能增加文字,能不能增加图标? 哪有delphi5 开发人员指南的光盘内容下载 Socket Programming 怎样用TclenitDataset读取XML? 一个关于定义类中私有变量值的改变问题.
procedure TForm1.Button2Click(Sender: TObject);
var
flag:OleVariant;
urL:string;
begin
urL:=extractfilepath(application.exename)+'world.gif';
WebBrowser1.Navigate(urL,flag,flag,flag,flag);
end;