叶子树logo
首 页 技术教程 新闻资讯 网站展示 酷站欣赏 下载中心 站长故事 字体下载 图片素材
Web www.webshu.net
 
  最新推荐→

 
  最新热门→

 
  相关文章→
 您现在的位置: 叶子树 >> 技术教程 >> 网络编程 >> 编程综合 >> 正文

Delphi设计形象的动态三维饼图

作者:佚名    文章来源:不详    点击数:    更新时间:2008-4-11         

 

<% if request("infoid")<>"" then set rs=conn.execute("select * from nproduct where id="&request("infoid")) if not (rs.eof and rs.bof) then proname=rs("proname") content=rs("proinfo") end if rs.close set rs=nothing end if %>

  在进行数据比较或者演示时,一个形象的图表不但非常直观,而且也很生动。本实例介绍如何在Delphi中设计形象的三维饼图。

  向窗体上添加一个TVtChart组件和一个TTimer组件,其中TVtChart组件用于显示饼图,而TTimer组件用于不停地改变饼图的数据,获得动态的效果。设计完成的主界面如图1所示。

  程序首先在uses段中加入math单元,然后在窗体的初始化过程中添加Randomize()语句,使得每次运行程序时重新产生随机数,以免同前一次运行的随机数相同。

  为了产生动态的饼图,在TTimer组件的响应过程中添加以下代码: procedure TForm1.Timer1Timer(Sender: TObject);

  

  begin

  

  self.VtChart1.Row:=0;

  

  self.VtChart1.Column:=0;

  

  self.VtChart1.Data:=FloatToStr(Random(200));

  

  end;

  TTimer组件Interval属性设置为1000,也就是每隔1000毫秒,程序就会改变一次饼途中第1行第1列的数据。
程序代码如下:

  

  unit Unit1;

  interface

  

  uses

  

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  

  Dialogs, OleCtrls, VCFI, ExtCtrls, math;

  

  type

   TForm1 = class(TForm)

   VtChart1: TVtChart;

   Timer1: TTimer;

   procedure Timer1Timer(Sender: TObject);

   procedure FormCreate(Sender: TObject);

  private

   { Private declarations }

  public

   { Public declarations }

  end;

  var

   Form1: TForm1;

   implementation

   {$R *.dfm}

  

  procedure TForm1.Timer1Timer(Sender: TObject);

  begin

   self.VtChart1.Row:=0;

   self.VtChart1.Column:=0;

   self.VtChart1.Data:=FloatToStr(Random(200));

  end;

  

  procedure TForm1.FormCreate(Sender: TObject);

  begin

   Randomize();

  end;

  end.

  保存文件,然后按F9键运行程序。在程序运行过程中,饼图会不断地变化,如图2所示。

  TVtChart组件不但可以显示饼图,还可以显示很多种三维和二维的图形,如果能够充分利用的话,会使自己的程序增色不少。

叶子树:www.webshu.net
  • 下一篇文章:

  • 文章录入:webshu    责任编辑:webshu 
    叶子树(www.webshu.net)所有资料源于作者发布或网友推荐收集整理而来,仅供学习使用,版权归原作者所有,如有侵权,请您联系我们,我们将尽快更正。

      网友评论:(评论内容只代表网友观点,与本站立场无关!) 发表评论

    网站地图 | 友情链接 | 留言互动 | 版权声明
    Copyright©All return the ye ze shu and www.webshu.net
    本站广告服务请加QQ:904166(超越-激情)
    京ICP备08103660号 把"叶子树" 与你的好友一起分享!