至顶网›软件频道 ›应用软件›Delphi设计形象的动态三维饼图

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

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

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

作者：天极博客来源：天极博客 2007年9月14日

关键字：设计形象三维饼图

在本页阅读全文(共19页)

向窗体上添加一个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组件不但可以显示饼图，还可以显示很多种三维和二维的图形，如果能够充分利用的话，会使自己的程序增色不少。

查看本文来源

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

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

业界热点: