Código
begin
Application.OnHint := DisplayHint;
end;
procedure TForm1.DisplayHint(Sender: TObject);
begin
Panel1.Caption := Application.Hint;
end; // Não é necessário Atribuir True para o ShowHint
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009