Chart 控制項滑鼠懸停顯示資料點座標 (Delphi 實作)

需求

在 Delphi 使用 TeeChart (TChart) 元件繪製曲線圖時，滑鼠移至資料點上方時，以 Hint (提示) 顯示該點的 X、Y 座標值。

核心程式碼

procedure TForm1.pntsrsSeries1MouseEnter(Sender: TObject);
var
  i: Integer;
  x1, y1: string;
begin
  // 設定游標樣式
  pntsrsSeries1.Cursor := crHandPoint;
  // 啟用 Hint
  cht1.ShowHint := True;

  // 取得游標所在資料點索引
  i := cht1.Series[1].GetCursorValueIndex;

  // 格式化座標值 (保留三位小數)
  x1 := FormatFloat('0.000', cht1.Series[1].XValue[i]);
  y1 := FormatFloat('0.000', cht1.Series[1].YValue[i]);

  // 設定 Hint 文字
  cht1.Hint := 'X: ' + x1 + ' Y: ' + y1;
end;

關鍵點解析

進階建議

• 邊界檢查：實際專案中應加入 if i >= 0 then ... 避免游標不在點上時存取陣列越界。
• 多序列支援：若圖表含多條序列，可在 OnMouseMove 事件中遍歷所有序列找最近點，或使用 TChart.GetCursorValues。
• 自訂 Hint 視窗：若需更豐富顯示 (如單位、時間戳)，可建立自訂 THintWindow 並在 OnShowHint 事件處理。

總結

利用 TeeChart 內建的 GetCursorValueIndex 與 Hint 機制，僅需十幾行程式碼即可實現資料點座標即時顯示，提升圖表互動體驗。