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

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

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

图 主界面

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

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

begin

selfVtChartRow:=;

selfVtChartColumn:=;

selfVtChartData:=FloatToStr(Random());

end;

TTimer组件Interval属性设置为也就是每隔毫秒程序就会改变一次饼途中第行第列的数据

程序代码如下

unit Unit;

interface

uses

Windows Messages SysUtils Variants Classes Graphics Controls Forms

Dialogs OleCtrls VCFI ExtCtrls math;

type

TForm = class(TForm)

VtChart: TVtChart;

Timer: TTimer;

procedure TimerTimer(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form: TForm;

implementation

{$R *dfm}

procedure TFormTimerTimer(Sender: TObject);

begin

selfVtChartRow:=;

selfVtChartColumn:=;

selfVtChartData:=FloatToStr(Random());

end;

procedure TFormFormCreate(Sender: TObject);

begin

Randomize();

end;

end

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

图 变化中的饼图

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