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;