Delphi設(shè)計形象的動態(tài)三維餅圖

在進行數(shù)據(jù)比較或者演示時，一個形象的圖表不但非常直觀，而且也很生動。本實例介紹如何在Delphi中設(shè)計形象的三維餅圖。
    向窗體上添加一個TVtChart組件和一個TTimer組件，其中TVtChart組件用于顯示餅圖，而TTimer組件用于不停地改變餅圖的數(shù)據(jù)，獲得動態(tài)的效果。
    程序首先在uses段中加入math單元，然后在窗體的初始化過程中添加Randomize()語句，使得每次運行程序時重新產(chǎn)生隨機數(shù)，以免同前一次運行的隨機數(shù)相同。
    為了產(chǎn)生動態(tài)的餅圖，在TTimer組件的響應(yīng)過程中添加以下代碼： 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毫秒，程序就會改變一次餅途中第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鍵運行程序