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

======================================================
注：本文源代码点此下载
======================================================

http://www.souzz.net/html/edu/delphi/2110.html

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

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

图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所示。

图2 变化中的饼图

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

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

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