鼠标移动/单击/鼠标按下时获取tchart坐标值

时间:2016-11-23 03:13:31

标签: delphi delphi-7

我需要知道如何在鼠标点击或移动图表时获取坐标值,

我使用此代码但是遇到了Axes

Get X and Y values under mouse pointer

procedure TForm2.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
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;

该代码是否需要使用?

我真正需要的是,如果我按下按钮1,开始坐标,然后当我点击图表时获取坐标停止并锁定我的编辑文本

1 个答案:

答案 0 :(得分:0)

可能它取决于TChart / TeeChart版本。

这对我有用:

  XVal:=Chart1.BottomAxis.CalcPosPoint(X);
  YVal:=Chart1.LeftAxis.CalcPosPoint(Y);

P.S。 what i really need不太清楚