Dicas - Hints

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
 (0)  (0)

Veja a dica de como criar Hints diferentes.

Hints Diferentes

 

Para testar este exemplo inclua no seu form alguns componentes. Nestes componentes coloque informações na propriedade Hint de cada componente e altere a propriedade ShowHint para True.

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;

 

type

TForm1 = class(TForm)

  Edit1: TEdit;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

procedure MyShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);

end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.DFM}

 

// Função que irá alterar a fonte do Hint

procedure TForm1.MyShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);

var

  i: integer;

begin

  for i := 0 to Application.ComponentCount - 1 do

    if Application.Components[i] is THintWindow then

    with THintWindow(Application.Components[i]).Canvas do

    begin

      Font.Name := 'Verdana';

      Font.Size := 30;

      Font.Style := [fsBold];

      HintInfo.HintColor := clWhite;

    end;

end;

 

// Evento OnCreate do Form

procedure TForm1.FormCreate(Sender: TObject);

begin

  // Ativa a função que irá alterar o formato do Hint

  Application.OnShowHint := MyShowHint;

end;

 

Veja um exemplo da função em ação:

 

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