Dicas - Melhorando a aparência do Hint

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja nessa dica, como criar Hints estilo balão ou retangulo, usando a biblioteca RxLib.

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.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?