Simular a nova propriedade HintText do Delphi2009

Olá Pessoal,

Fiquei muito entusiasmado com os novos recursos e componentes da VCL, e um deles que é de muita utilidade é a nova propriedade HintText presente no TEdit, ela permite que você defina um texto padrão a ser exibido no Edit quando a propriedade text não tiver nenhum valor.

Bom, como eu sei que nem todos podem migrar imediatamente e desfrutar desse novo recurso, resolvi demonstrar como é possível simular o HintText utilizando qualquer versão do Delphi.

Veja o exemplo:

unit uFormPadrao; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan; type TFormPadrao = class(TForm) procedure FormCreate(Sender: TObject); private procedure TextHintOnEnter(Sender: TObject); procedure TextHintOnExit(Sender: TObject); { Private declarations } public { Public declarations } end; var FormPadrao: TFormPadrao; implementation {$R *.dfm} Const DefaultColor: TColor = clBlack; procedure TFormPadrao.FormCreate(Sender: TObject); var i: Integer; begin for i := 0 to ComponentCount - 1 do begin if Components[i] is TEdit then begin TEdit(Components[i]).OnEnter := TextHintOnEnter; TEdit(Components[i]).OnExit := TextHintOnExit; TextHintOnExit(TEdit(Components[i])); end; end; end; procedure TFormPadrao.TextHintOnEnter(Sender: TObject) ; begin if Sender is TEdit then begin if TEdit(Sender).Text = TEdit(Sender).Hint then TEdit(Sender).Text := EmptyStr; TEdit(Sender).Font.Color := DefaultColor; end; end; procedure TFormPadrao.TextHintOnExit(Sender: TObject) ; begin if Sender is TEdit then begin if TEdit(Sender).Text = EmptyStr then begin TEdit(Sender).Text := TEdit(Sender).Hint; TEdit(Sender).Font.Color := clGray; end; end; end; end.

Para que todos os forms tenham a funcionalidade você pode criar um form Padrao e utilizar a herança para fazer o trabalho para você.

Veja o nosso exemplo funcionando:

Bom a única observação é que na hora de utilizar esse valor (seja para gravar no banco ou apenas exibir ao usuário) você deve verificar se o text é igual ao hint, se estiver igual significa que Text está vazio.

É isso ai! um grande abraço a todos.