熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-11 21:04:43  來源: 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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.