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;