Neste simples exemplo vamos criar um componente TEdit com características próprias, como mudar a cor de fundo quando receber o foco e que aceite apenas números.

Primeiro passo, abra o Delphi e crie um novo projeto.

Vá em File, Save all e salve como “EditPersonalizado” ou qualquer nome a sua escolha.

Adicione um TEDIT em seu formulário conforme a figura abaixo, pois é em cima dele que vamos trabalhar.

Renomeie-o como edtOnlyNumber ou um nome a sua escolha.

Figura 1 - Adicionando um edit ao projeto

O próximo passo é dar as funcionalidades que queremos ao nosso EDIT.

Vamos fazer, que no momento em que ele receber o foco, mude a cor de fundo e volte ao normal quando perder o foco. Para isso usaremos os seguintes comandos:

No evento OnEnter coloque o seguinte código:

  edtOnlyNumber.Color := clInfoBk;

E no evento OnExit:

  edtOnlyNumber.Color := clWhite;

Agora faremos com que ele aceite apenas números, o que é muito fácil de se encontrar na internet e de implementar. Apenas copie e cole o código abaixo no evento OnKeyPress de seu Edit:

  if not (Key in ['0'..'9', Chr(8)]) then Key := #0;

Pronto, as funcionalidades de nosso componente estão prontas, agora vamos gerar o componente. Para isso, vá no menu Component, Create Component Template.

Aparecerá uma janelinha com os seguintes parâmetros:

• Component name: Nome do seu componente
• Pallete page: Em qual aba de componentes ele aparecerá (por padrão, o delphi cria a aba templates mas você pode alterá-la sem problema)
• Pallete icon: ícone do seu componente (use ícones do tipo bitmap)

Figura 02 - Janela de Criação do Template

Passados os parâmetros, dê um ok e pronto!

Procure na tool pallete a aba Templates e lá estará o seu novo componente. Aí é so arrastar para o formulário e testar suas funcionalidades. ;-)

Figura 03 - Adicionando o componente criado

Este é um exemplo simples, mas as possibilidades são muitas. Você poderá por exemplo, usar este recurso numa validação de cpf ou cnpj em suas aplicações.

Aqui usei o Rad Studio 2007, mas este passo a passo também pode ser feito em versões anteriores sem maiores problemas.

Vale lembrar que com este recurso você não Cria componentes! Em resumo, o que é feito é um "ctrl+c, ctrl+v" automático, ou seja, a IDE copia automaticamente o componente utilizado com todas as suas propriedades e eventos, gerando um modelo (template). Ao utilizar este modelo, a IDE simplesmente injeta no formulário o componente copiado com as mesmas propriedades e códigos de quando ele foi gerado.

Caso queira excluir um template gravado, basta clicar com o botão direito sobre ele na Tool Pallete e escolher a opção "Delete xxx Button", onde xxx é nome dado ao template.

No próximo artigo veremos um pouco de delphi para internet. Espero ter ajudado e até a próxima!

Por: Rafael Amaral
Contato: rafamaral@hotmail.com