Ver Mensaje Individual
  #5  
Antiguo 25-08-2010
cloayza cloayza is offline
Miembro
 
Registrado: May 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 718
Reputación: 16
cloayza Va camino a la fama
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

Última edición por cloayza fecha: 25-08-2010 a las 22:40:52.
Responder Con Cita