Delphi设计形象的动态三维饼图_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

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

作者：闵涛文章来源：闵涛的学习笔记点击数：565 更新时间：2009/4/23 18:25:20

　　在进行数据比较或者演示时，一个形象的图表不但非常直观，而且也很生动。本实例介绍如何在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所示。