StatusBar con Hints en cada Panels

[Ruben_Cu]

Hola hgiacobone y demás compañeros voy a proponer una solución a partir de propiedades de los objetos la he probado en delphi 6 no se cual usas tu a partir de lo que comenta andres.
Yo lo he implementado de la manera siguiente:

procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
        with statusbar1 do begin
                if x<Panels[0].Width then Hint:=Panels[0].Text;
                if (x>Panels[0].Width)and(x<(Panels[0].Width+Panels[1].Width))then Hint:=Panels[1].Text;
                if (x>(Panels[0].Width+Panels[1].Width)) then Hint:=Panels[2].Text;
        end;
end;

O sea utilizando el evento OnMove del mouse... inconvenientes:
1.- Al moverte de un panel a otro debes abandonar el statusbar y entrar de nuevo
2.- Debes tener tantas sentencias if como paneles declares
Lo veo como una alternativa que puede servirte, el contenido del Hint en este caso es el texto del panel pero puede ser cualquier string incluso el contenido del registro de un campo.
Saludos y ojala aparezca una mejor