Chart 显示曲线值

procedure DBChart1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
    I : Integer;
    AValueIndex : Integer;
    TmpSeies : TChartSeries;
    tmpX,tmpY:double;
begin
  for I := 0 to TDBChart(Sender).SeriesList.Count - 1 do
  begin
    TmpSeies := TDBChart(Sender).SeriesList.Items[I];
    if TmpSeies = Series1 then
    begin
      AValueIndex := Series1.GetCursorValueIndex;
      if AValueIndex > -1 then
      begin
        Series1.GetCursorValues(tmpX,tmpY);  { <-- get values under mouse cursor }
        DBChart1.Canvas.Font.Color:=clRed;//字体颜色
        DBChart1.Canvas.Font.Size := 14;
        DBChart1.Canvas.Brush.Style := bsClear;//透明
        DBChart1.Canvas.TextOut(x+5,y-25,Series1.GetVertAxis.LabelValue(tmpY));
      end
      else
      DBChart1.Repaint;
    end;
  end;
end;

完善一部分功能

procedure  DBChart1MouseMove(Sender: TObj