procedure TfrmChart.ChartMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Series: TChartSeries; index: LongInt; s: string; begin Series := getCurSeries; if not assigned(Series) then exit; index := Series.GetCursorValueIndex; begin Series.XLabel[index], Series.YValues[index], Series.MarkPercent(index, true)]); end; end;
tmpX,tmpY:Double;
...... GetCursorValues(tmpX,tmpY);
Series1.XValues[Round(tmpY)];//X的值
Series1.YValues[Round(tmpX)];//Y的值
Y: Integer);
var
Series: TChartSeries;
index: LongInt;
s: string;
begin
Series := getCurSeries;
if not assigned(Series) then exit;
index := Series.GetCursorValueIndex;
begin
Series.XLabel[index],
Series.YValues[index],
Series.MarkPercent(index, true)]);
end;
end;
在MouseDown事件中得到
...
XVal:=Series1.XScreenToValue(X);
YVal:=Series1.YScreenToValue(Y);
...
得到了