Mostrar Hint de una serie con clic del Mouse sobre un Tchart

[cloayza]

Me tome la libertad de hacer este codigo incorporando el tuyo...

Este muestra el hint cuando te mueves sobre el grafico...

TChartClickedPart contiene informacion sobre que parte del grafico esta el mouse...

Saludos

Código Delphi [-]
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
     pt:TPoint;
     part:TChartClickedPart;
     i:Integer;
     txt:string;
begin
     pt.x:=X; pt.y:=Y;

     {Obtiene informacion sobre el punto del grafico donde esta el mouse...}
     Chart1.CalcClickedPart(pt,Part);

     memo1.lines.clear;

     chart1.ShowHint:=False;

     {Determina en que parte del grafico esta el mouse...}
     case (Part.Part) of
          cpNone  :memo1.lines.add('cpNone');
          cpLegend:memo1.lines.add('cpLegend');
          cpAxis  :begin
                        memo1.lines.add('cpAxis');
                        memo1.lines.add('Axis.Title:'+part.AAxis.Title.Caption);
                   end;
          cpSeries:begin
                         {Si esta sobre una serie...}
                         memo1.lines.add('cpSeries');
                         memo1.lines.add( Part.ASeries.Title);

                         memo1.lines.add( part.ASeries.XLabelsSource);
                         {TU CODIGO con unos pequenisimos cambios....}
                        for i:=0 to Part.ASeries.Count do
                         if Part.ASeries.Clicked(X,Y)<>-1 then
                         begin
                              txt:='Sensor '+Part.ASeries.Title;
                              Break;
                         end;
                         
                         chart1.Hint:=txt;
                         Application.HintPause:=1;
                         chart1.ShowHint:=True;
                         Application.ActivateHint(Mouse.CursorPos);
                         {FINAL DE TU CODIGO...}
          end;
          cpTitle :memo1.lines.add('cpTitle');
          cpFoot  :memo1.lines.add('cpFoot');
          cpChartRect:memo1.lines.add('cpChartRect');
     end;

end;

Espero te ayude...
Saludos

[jalexc]

Hola cloayza, muchas gracias eso fue mas que perfecto quedo muy agradecido...

Saludos