Hint em forma de Balão...

No site do Clube tem uma dica de fazer um Hi9nt no estilo do WinXP, dê uma olhada.

Isto é uma dica que eu vi na net: Olhe e vê se dá para vc fazer
boa sorte !
alane@wkve.com.br

Resumo:
Se vc tiver a Biblioteca de Componentes RxLib , vc pode usar a Unit RxHints p/ Melhorar a aparência do seu Hint mudando a Formação p/ Balão, Retangulo ... e p/ melhorar mias formatando a cor de fundo , sustentando por mais tempo e com mais de uma linha.

Texto:
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.