Melhorando a aparência do Hint
Se você tiver a Biblioteca de Componentes RxLib, você pode usar a Unit RxHints para melhorar a aparência do seu Hint mudando a Formação para balão, Retangulo... e para melhorar ainda mais poderá formatar a cor de fundo, sustentando por mais tempo e com mais de uma linha.
Abaixo um exemplo de implementação:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, RxHints ;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
// --> Formação do Hints
RxHints.SetHintStyle(hsEllipse, 5, true, taLeftJustify ); // Forma de Balão
Application.HintColor := $005BFFAD ; // muda a cor de fundo
Application.HintHidePause := 100000 ; // Sustenta o Hint em quase 2min
// --> mostra o Hint com mais de uma linha
Form1.Hint := ' Consulta Geral do CLiente '
+ #13 + ' Cadastra Novo CLiente '
+ #13 + ' Altera Cadastro do CLiente '
+#13 + ' Exclui Cadastro do CLiente ' ;
Form1.ShowHint := True ;
end;
end.
