delphi - 获取 TChart 中 XY 点的 TChartSeries

Question

我正在使用 Delphi 7 附带的 TChart 控件，并希望获取鼠标指针下的线条/条形的系列和值编号。

我知道 OnClickSeries 事件提供了很好的信息，但是当我将鼠标悬停在一个系列上时，我真的需要这些信息。

编辑:我在 TChart 上找到了一种 HitTest 方法，它适用于任何系列类型和一个图表中的多个系列，因此我发布了此方法并将其作为我接受的答案。特别感谢 GameCat 的努力。

Answer 1

您可以检查OnChartMouseMove(或OnSeriesMouseMove)

procedure TForm5.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  i : Integer;
begin
  i := Series1.CalcClickedPie(x,y); // i = index of checked data -1 for none
  Memo1.Lines.Add(IntToStr(i));
end;

好吧，我的错，酒吧的代码是不同的(甚至更简单):

procedure TForm5.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  i : Integer;
begin
  i := Series1.GetCursorValueIndex;
  Memo1.Lines.Add(IntToStr(i));
end;