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

在比较或演示数据时，图像图表不仅非常直观，而且非常生动。本例介绍了如何在Delphi中设计一个图像三维饼状图。

在表单中添加一个TVtChart组件和一个TTimer组件，其中TVtChart组件用于显示饼图，而TTimer组件用于不断改变饼图的数据以获得动态效果。

程序先在uses段中添加数学单元，然后在表单的初始化过程中添加Randomize()语句，这样程序每次运行时都会重新生成随机数，以免与上一次运行的随机数相同。

要生成动态饼图，请在TTimer组件的响应流程中添加以下代码:ProcedureTFORM 1。Timer1Timer(发送方:to object)；

开始
自己。vt chart 1 . Row:= 0；
自我。vt chart 1 . Column:= 0；
自我。vt chart 1 . Data:= float tostr(Random(200))；
end；

TTimer组件的Interval属性设置为1000，即每隔1000毫秒，程序会改变饼图第一行第一列的数据。

程序代码如下:

unit Unit1
接口
使用
窗口、消息、系统工具、变体、类、图形、控件、表单、
对话框、OleCtrls、VCFI、ExtCtrls、math
type
t form 1 = class(t form)
vt chart 1:tvt chart；
定时器1:TTimer；
过程定时器1Timer(发送方:to object)；
过程FormCreate(发件人:to object)；
私有
{私有声明}
公共
{公共声明}
end；

var
form 1:t form 1；
实现
{$R *。dfm}
过程TForm1。Timer1Timer(发送方:to object)；开始
自己。vt chart 1 . Row:= 0；
自我。vt chart 1 . Column:= 0；
自我。vt chart 1 . Data:= float tostr(Random(200))；
end；

程序TForm1。FormCreate(发件人:to object)；
begin
Randomize()；
end；
结束。
保存文件，然后按F9运行程序。