用下段代码不知道能不能达到你的要求
procedure Tzl1Form.DBChart1ClickSeries(Sender: TCustomChart;
Series: TChartSeries;
ValueIndex: Integer;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
var
XFieldValue,YFieldValue :do
uble;
// 最近的数据点对应的字段值
vx,vy:double;// 鼠标位置对应于X,Y轴上的坐标值
begin
Series.GetCursorValues(vX,vY);
XFieldValue := Series.XValues[ValueIndex];
YFieldValue := Series.YValues[ValueIndex];
label1.Caption:=floattostr(yfieldvalue);
end;