知识大全 Delphi设计形象的动态三维饼图

Posted 2022-07-22 知

篇首语：行是知之始,知是行之成。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi设计形象的动态三维饼图相关的知识，希望对你有一定的参考价值。

Delphi设计形象的动态三维饼图 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

在进行数据比较或者演示时一个形象的图表不但非常直观而且也很生动本实例介绍如何在Delphi中设计形象的三维饼图　　　　向窗体上添加一个TVtChart组件和一个TTimer组件其中TVtChart组件用于显示饼图而TTimer组件用于不停地改变饼图的数据获得动态的效果设计完成的主界面如图所示　　 >　　 >　　　　程序首先在uses段中加入math单元然后在窗体的初始化过程中添加Randomize()语句使得每次运行程序时重新产生随机数以免同前一次运行的随机数相同　　　　为了产生动态的饼图在TTimer组件的响应过程中添加以下代码 procedure TForm Timer Timer(Sender: TObject);　　　　begin　　self VtChart Row:= ;　　self VtChart Column:= ;　　self VtChart Data:=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 Timer Timer(Sender: TObject);　　procedure FormCreate(Sender: TObject);　　private　　 Private declarations 　　public　　 Public declarations 　　end;　　　　var　　Form : TForm ;　　implementation　　$R * dfm　　procedure TForm Timer Timer(Sender: TObject);　　begin　　self VtChart Row:= ;　　self VtChart Column:= ;　　self VtChart Data:=FloatToStr(Random( ));　　end;　　　　procedure TForm FormCreate(Sender: TObject);　　begin　　Randomize();　　end;　　end 　　　　保存文件然后按F 键运行程序在程序运行过程中饼图会不断地变化如图所示　　 >　　 >　　　　TVtChart组件不但可以显示饼图还可以显示很多种三维和二维的图形如果能够充分利用的话会使自己的程序增色不少 cha138/Article/program/Delphi/201311/8429