如何获得X Y坐标（不移动鼠标）

Question

使用MouseMove程序，我可以获得X和Y位置。通过这段代码：

///////////

var

  XVal: double;
  YVal: double;

begin

  XVal:=Chart1.Axes.Bottom.CalcPosPoint(X);
  YVal:=Chart1.Axes.Left.CalcPosPoint(Y);

  Chart1.Title.Text[0]:=FormatFloat('#.##', XVal) + ' - ' + FormatFloat('#.##', YVal);
end;

////////////

没关系。但是我希望通过单击（单独）按钮而不是将鼠标移动到该值之上来获得series1.Value（单个值，图表上的“某处”）的X和Y坐标。也许这是一个非常简单的问题。感谢。

Answer 1

您可以使用系列函数：

CalcXPos - 按值索引获取屏幕X坐标（在系列中） CalcXPosValue - 按值获取屏幕X坐标

（Y {坐标为CalcYPos / CalcYPosValue）