Delphi設(shè)計(jì)形象的動(dòng)態(tài)三維餅圖

在進(jìn)行數(shù)據(jù)比較或者演示時(shí)，一個(gè)形象的圖表不但非常直觀，而且也很生動(dòng)。本實(shí)例介紹如何在Delphi中設(shè)計(jì)形象的三維餅圖。
    向窗體上添加一個(gè)TVtChart組件和一個(gè)TTimer組件，其中TVtChart組件用于顯示餅圖，而TTimer組件用于不停地改變餅圖的數(shù)據(jù)，獲得動(dòng)態(tài)的效果。
    程序首先在uses段中加入math單元，然后在窗體的初始化過(guò)程中添加Randomize()語(yǔ)句，使得每次運(yùn)行程序時(shí)重新產(chǎn)生隨機(jī)數(shù)，以免同前一次運(yùn)行的隨機(jī)數(shù)相同。
    為了產(chǎn)生動(dòng)態(tài)的餅圖，在TTimer組件的響應(yīng)過(guò)程中添加以下代碼： procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    self.VtChart1.Row:=0;
    self.VtChart1.Column:=0;
    self.VtChart1.Data:=FloatToStr(Random(200));
    end;
    TTimer組件Interval屬性設(shè)置為1000，也就是每隔1000毫秒，程序就會(huì)改變一次餅途中第1行第1列的數(shù)據(jù)。
    程序代碼如下：
    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鍵運(yùn)行程序