Procedure TForm1.FormCreate(Sender: TObject);
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
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário