9159金沙游艺场-奥门金沙游艺场-[欢迎您]

9159金沙游艺场为您呈现最新的面貌!,目前注册送体验金,欢迎您将成为影视娱乐行业新的风向标,是亚洲的优质娱乐先锋。

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

日期:2019-11-12编辑作者:前端

Form1: TForm1;

Dialogs, OleCtrls, VCFI, ExtCtrls, math;

unit Unit1;

var

private

begin

type

self.VtChart1.Data:=FloatToStr(Random(200));

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

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

图2 变化中的饼图

end;

public

{ Private declarations }

begin

implementation

self.VtChart1.Column:=0;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

程序代码如下:

{$R *.dfm}

end;

图1 主界面

procedure TForm1.FormCreate(Sender: TObject);

TForm1 = class(TForm)

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

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

{ Public declarations }

self.VtChart1.Row:=0;

end;

end.

Timer1: TTimer;

interface

uses

图片 1

procedure TForm1.Timer1Timer(Sender: TObject);

VtChart1: TVtChart;

图片 2

procedure FormCreate(Sender: TObject);

begin

procedure Timer1Timer(Sender: TObject);

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

self.VtChart1.Data:=FloatToStr(Random(200));

Randomize();

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

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

self.VtChart1.Row:=0;

self.VtChart1.Column:=0;

end;

本文由9159金沙游艺场-奥门金沙游艺场-[欢迎您]发布于前端,转载请注明出处:Delphi设计形象的动态三维饼图

关键词:

判断一个数是不是素数【9159金沙游艺场】

C语言 达成三个函数,判定一个数是或不是素数 #define _CRT_SECURE_NO_WARNINGS 1#include stdio.h#includestdlib.hint prime(num){ int i; ...

详细>>

读取properties属性文件

读取properties属性文件——国际化,properties国际化 3.算法综合实践——搜索引擎上网搜索有关“搜索引擎”的相关资料...

详细>>

山东省选2008

【山东省选2008】郁闷的小J 平衡树Treap,山东省treap 小J是国家图书馆的一位图书管理员,他的工作是管理一个巨大的...

详细>>

Ubuntu下使用skipfish扫描网站漏洞9159金沙游艺场

skipfish是谷歌开发网站完全扫描工具,强大易用。 #安装所需软件库: sudo apt-get install libssl0.9.8 sudo apt-get install libss...

详细>>