Delphi 動態三維餅圖：TVTChart + Timer 即時刷新資料視覺化

VCL 自帶的 TVTChart (TeeChart 精簡版) 支援 2D/3D 餅圖、長條圖、折線圖等多種圖表類型。搭配 TTimer 定期更新圖表資料，即可零代碼實現動態儀表板效果。本文示範最簡單的「單一數值隨機變化驅動餅圖即時重繪」範例。

元件佈局

• TVTChart1：拖放至表單，設計時右鍵選「Edit」→ Add Series → Pie (餅圖) → 設定 3D 深度、顏色調色盤。
• Timer1：Interval = 1000 (1 秒)，Enabled = True。

核心代碼

uses Math; // Random 需要

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize; // 初始化隨機種子，避免每次啟動序列相同
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // 更新第 1 系列、第 1 點的數值 (0~199)
  VTChart1.Series[0].YValues[0] := Random(200);
  // 或使用 Data 屬性 (舊版相容)
  // VTChart1.Row := 0; VTChart1.Column := 0; VTChart1.Data := FloatToStr(Random(200));
end;

進階動態圖表技巧

完整單元代碼

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
  VTChart1.Series[0].YValues[0] := Random(200);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;
end.

TeeChart 版本說明

• TeeChart Standard (隨 Delphi 附贈)：功能受限，無動畫、無部分匯出格式、序列化受限。
• TeeChart Pro / Lite (Steema 官方)：完整功能，支援 VCL/FMX/WEB/CLR，授權費用較高。
• 替代方案：TChart (免費開源)、FastReport 內建圖表、第三方如 TMS Chart、ECharts (WebView2 嵌入)。

對於「儀表板即時顯示幾個關鍵指標」的輕量需求，內建 VTChart + Timer 即可滿足，無需引入龐大依賴。

1. 上一篇文章： Delphi 一鍵清空回收站：SHEmptyRecycleBin API 動態載入實作
2. 下一篇文章： Delphi 介面程式設計入門：IInterface、GUID、引用計數、委派與 RTTI 完整指南

Delphi

Delphi 調用 WinAPI：GetSystemPowerStatus 取得電源與電池狀態

筆電電源監控的關鍵 API GetSystemPowerSt

TTreeView 講解 [14]：StateIndex 狀態圖標與 OverlayIndex 疊加圖標

前言 TTreeView 節點支持三層圖標體系：ImageI

DelphiX 實戰：TDIB.DrawTo 矩形區域複製範例

TDIB.DrawTo 將來源 DIB 的指定矩形區域複製到

Delphi 計算兩數最小公倍數 (LCM) 完整實作與優化

數學基礎：LCM 與 GCD 的關係 最小公倍數（Least