Delphi設計形象的動態三維餅圖

在進行數據比較或者演示時一個形象的圖表不但非常直觀而且也很生動本實例介紹如何在Delphi中設計形象的三維餅圖
　　
　　向窗體上添加一個TVtChart組件和一個TTimer組件其中TVtChart組件用於顯示餅圖而TTimer組件用於不停地改變餅圖的數據獲得動態的效果設計完成的主界面如圖所示
　　 　
　　 圖 主界面
　　
　　程序首先在uses段中加入math單元然後在窗體的初始化過程中添加Randomize()語句使得每次運行程序時重新產生隨機數以免同前一次運行的隨機數相同
　　
　　為了產生動態的餅圖在TTimer組件的響應過程中添加以下代碼 procedure TFormTimerTimer(Sender: TObject);
　　
　　begin
　　selfVtChartRow:=;
　　selfVtChartColumn:=;
　　selfVtChartData:=FloatToStr(Random());
　　end;
　　
　　TTimer組件Interval屬性設置為也就是每隔毫秒程序就會改變一次餅途中第行第列的數據
　　
　　程序代碼如下
　　
　　unit Unit;
　　interface
　　uses
　　Windows Messages SysUtils Variants Classes Graphics Controls Forms
　　Dialogs OleCtrls VCFI ExtCtrls math;
　　type
　　TForm = class(TForm)
　　VtChart: TVtChart;
　　Timer: TTimer;
　　procedure TimerTimer(Sender: TObject);
　　procedure FormCreate(Sender: TObject);
　　private
　　{ Private declarations }
　　public
　　{ Public declarations }
　　end;
　　
　　var
　　Form: TForm;
　　implementation
　　{$R *dfm}
　　procedure TFormTimerTimer(Sender: TObject);
　　begin
　　selfVtChartRow:=;
　　selfVtChartColumn:=;
　　selfVtChartData:=FloatToStr(Random());
　　end;
　　
　　procedure TFormFormCreate(Sender: TObject);
　　begin
　　Randomize();
　　end;
　　end
　　
　　保存文件然後按F鍵運行程序在程序運行過程中餅圖會不斷地變化如圖所示
　　
　　 圖 變化中的餅圖
　　
　　TVtChart組件不但可以顯示餅圖還可以顯示很多種三維和二維的圖形如果能夠充分利用的話會使自己的程序增色不少
From:http://tw.wingwit.com/Article/program/Delphi/201311/8429.html