sábado, 5 de setembro de 2009

Mostrando o hint num panel

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

Nenhum comentário:

Postar um comentário