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;
Chart1.CalcClickedPart(pt,Part);
memo1.lines.clear;
chart1.ShowHint:=False;
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
memo1.lines.add('cpSeries');
memo1.lines.add( Part.ASeries.Title);
memo1.lines.add( part.ASeries.XLabelsSource);
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);
end;
cpTitle :memo1.lines.add('cpTitle');
cpFoot :memo1.lines.add('cpFoot');
cpChartRect:memo1.lines.add('cpChartRect');
end;
end;
Espero te ayude...
Saludos