Use o componente ApplicationEvents.

procedure TForm1.ApplicationEvents1Hint(Sender: TObject);
begin
StatusBar1.Panels[0].text := Application.Hint;
end;


[As partes desta mensagem que não continham texto foram removidas]

Responder a