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运行程序。
0条评论