DBCHART读取X、Y、LABEL值

1、把MOUSE移到某一条SERIES上时，显示该点的值

procedure Tzl1Form.DBChart1ClickSeries(Sender: TCustomChart;
 Series:
TChartSeries; ValueIndex: Integer; Button: TMouseButton;
 Shift:
TShiftState; X, Y: Integer);
var
 XFieldValue,YFieldValue : Double;  //
最近的数据点对应的字段值
  vx,vy:double;// 鼠标位置对应于X,Y轴上的坐标值
begin

 Series.GetCursorValues(vX,vY);
 XFieldValue :=
Series.XValues[ValueIndex];
 YFieldValue := Series.YValues[ValueIndex];

 label1.Caption:=floattostr(yfieldvalue);
 end;

2、显示标签

Series1.XLabel[ValueIndex]

3、显示X、Y值

procedure TForm1.s(Sender: TCustomChart;
Series:
TChartSeries; ValueIndex: Integer; Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
Hint:=
FloatTostr(Series.YValues.value[valueindex]);
ShowHint:=True ;
end;

4、显示序列名

procedure TForm1.DBChart1ClickSeries (Sender: TCustomChart;
Series:
TChartSeries; ValueIndex: Longint; Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
ShowMessage(' Clicked Series: '+Series.Name+' at
point: '+ inttostr(valueindex));
end;