首页产品库评测行情新闻|手机数码笔记本台式机DIY硬件数字家庭数码相机办公外设|软件下载游戏开发|社区

更多

数码相机
MP4
LCD
机箱
音箱

软件资讯设计 工具 系统 开发 安全 办公 陶吧 IT教育 Vista频道 | 下载中心酷我音乐盒 腾讯QQ
天极网 > 开发频道>Delphi设计形象的动态三维饼图

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

2005-07-27 09:26作者:蒋涛出处:网狐责任编辑:方舟

天极软件专题专区精选
Google专区 POPO专区 QQ专区
Flash MX 视频教程 Photoshop视频教程 网页设计视频教程
PowerPoint动画演示教程 Excel动画教程集 Word动画演示教程
特洛伊木马专区 黑客知识教程专区 注册表应用专区
Windows API开发专区 网络编程专区 VB数据库编程专区
图像与多媒体编程    

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

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


关注此文的读者还看过:

返回开发频道首页

共1页。 1
  • 1.Delphi设计形象的动态三维饼图

软件频道最新更新

热点推荐

IT嘉年华

编辑推荐

软件下载

热门
推荐

网友关注

软件
资料
游戏

装机推荐

文章排行

本周
本月
最新更新
天极服务|关于我们|About us|网站律师|RSS订阅|友情合作|加入我们|天极动态|网站地图|意见反馈|MSN/QQ上看天极
Copyright (C) 1999-2012 Yesky.com, All Rights Reserved 版权所有 天极网络