statusbar y hints

[urush30]

hola, mi pregunta es la siguiente, yo quiero mostrar el longhint en el statusbar pero lo quiero hacer de la manera siguiente:
1) Mientras el hint este visible en la pantalla el statusbar debera tener la propiedad simplepanel a verdadero y con el texto del longhint.
2) Cuando el hint este desactivado la propiedad simplepanel a falso porque en el statusbar tengo que mostrar otra informacion.

¿Como se puede hacer esto? ¿Hay algun evento que se pueda aplicar?

Gracias.

[ruina]

sip, con ApplicationEvents (en la paleta, pestaña aditional) tienes controlado el evento OnShowHint, el único problema que le veo es que no tienes un OnHideHint, la solución que se me ocurre es poner un timer con el HideTimeout para volver a mostrar la información en varios paneles. Ma o o meno seria:

Código Delphi [-]
procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
begin
    StatusBar1.SimplePanel:=true;
    StatusBar1.SimpleText:=HintStr;
    Timer1.Enabled:=false;
    Timer1.Interval:= HintInfo.HideTimeout;
    Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    StatusBar1.SimplePanel:=false;
    StatusBar1.Panels[0].Text:='feo';
    Timer1.Enabled:=false;
end;

Con el timer inicializado a false y el statusBar con paneles creados.

[roman]

Me parece que basta usar el evento OnHint de ApplicationEvents:

Código Delphi [-]
procedure TForm1.ApplicationEvents1Hint(Sender: TObject);
begin
  StatusBar1.SimpleText := Application.Hint;
  StatusBar1.SimplePanel := (Application.Hint <> '');  
end;

Con esto, al pasar el mouse sobre un control con Hint, el StatusBar mostrará el texto en SimplePanel y los paneles se recuperarán tan pronto se pase sobre un control sin Hint o fuera de los controles (siempre y cuando el formulario mismo no tenga Hint).

// Saludos

[urush30]

gracias a todos por las respuestas, la respuesta de Roman funciona a la perfeccion y es limpia y sencilla y me he decantado por esa, aunque todas funcionan. Gracias.