[Alegun]

Сообщение от Konstantin-78

...Как быть?

Код:

procedure TForm1.chDiagramMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 i, b: integer;
begin
  with chDiagram do
   begin
    b:= -1;
    for i := 0 to SeriesCount-1 do
     if Series[i].Clicked(X, Y) <> -1 then
      begin
       b:= Series[i].Clicked(X, Y);
       Hint:= DateToStr(Series[i].XValue[b]);
      end;
    ShowHint:= b > -1;
   end;{with}
end;

Проверил, работает