StatusBar con Hints en cada Panels

[andres1569]

Hola:

Delphi.Com.Ar, te aseguro que anoche, cuando posteé, lo había probado en Delphi 4 y 5 y no aparecía el Hint por ningún lado, igual era yo que estaba dormido.

Ahora mismito lo acabo de probar y no da problemas, no sé si se me nubló la vista ...

Volviendo al tema, la solución que proponía Rubén Acosta me pareció buena, yo tenía hecho algo parecido, y funciona para lo que pide hgiacobone:

procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  w, i : Integer;
begin
  w := 0;
  for i:=0 to StatusBar1.Panels.Count - 1 do
    with StatusBar1.Panels[i] do
    begin
      if X <= w + Width then
      begin
        StatusBar1.Hint := Text;
        Break;
      end;
      Inc (w, Width);
    end;
end;

Por cierto, todo el codigo que posteé del libro de Marco Cantú para mostrar en el StatusBar los hints de programa, es innecesario, para eso ya existe la propiedad AutoHint en el TStatusBar.