Criação de componentes - 1ª parte (c/ exemplo prático)

Olá pessoal, meu nome é Éder e estou apresentando
uma nova série de artigos sobre o desenvolvimento/criação
de componentes.
Estarei disponibilizando a vocês uma série de 2 artigos
descrevendo de maneira simples e com exemplo prático,
como criar/estender componentes do Delphi.
Neste primeiro artigo veremos na prática como podemos
criar um edit personalizado.
E no ultimo artigo irei descrever os conceitos teóricos
de todo o desenvolvimento prático feito neste primeiro
artigo.

Então vamos lá....

Entendendo o objetivo:
Todo mundo com certeza já viu aquele efeito do edit
que consiste em quando você entra no edit ele fica de
uma cor, e quando você sai ele fica de outra.... correto?
Bem simples, não é mesmo?
Só que o edit comum da tool pallete do Delphi não vem com
nenhuma propriedade para manipular esta ação.
E o nosso objetivo vai ser... aproveitar o código do edit
já existente, acrescentar estas opções e + algumas e
mostra-los no object inspector.
Faremos isso para facilitar a vida do programador, que não
terá mais a necessidade de criar o código que faz isso,
toda vez que for desenvolver um sistema.
É claro que temos a possibilidade de estender mais ainda o
componente, mas como estamos apresentando um artigo para
qualquer nível de desenvolvedor Delphi, usaremos este.
(Que serve como exemplo para qualquer
outro...+ complexo).

Estando entendidos....vamos lá....

Criamos uma nova aplicação no Delphi
File->New->Other.

E selecionamos Package na aba New.

Logo em seguida clicamos em Component->New Component.

Selecionamos TEdit(StdCtrls) em Ancestor Type, digitamos
TEditPersonalizado em Class Name, Eder(ou outro nome) em
Pallete Page, e deixamos o resto como fica.

Ele automaticamente irá criar uma unit.

Na unit iremos acrescentar em uses... Graphics.

Iremos declarar os nossos métodos manipuladores do componente.
OnEnterColor/OnExitColor/ColocaCor/RetiraCor/ImportaCor/ExportaCor.
Declaramos nosso construtor Create e pressionamos Ctrl+Shift+C.

E implementamos os métodos ColocaCor e RetiraCor.(TypeCast).

Em seguida ExportaCor e ImportaCor.

Depois disso declaramos as propriedades CorOnEnter e
CorOnExit em published.

Associamos os eventos aos métodos no Create.

Voltamos para a janela do Package(Pacote) selecionamos
Contains e clicamos com o botão direito. Selecionaremos
Build e depois Install.

Depois disso teremos o nosso componente pronto!
Fechamos o nosso pacote e criamos uma nova aplicação.
File->New->Application.

Iremos encontrar em nossa Tool Pallete uma aba com o nome
que colocamos lá no Pallete Page no Package.
No meu caso eu deixei como Eder.

E ao acrescentar o componente EditPersonalizado vc
irá notar que temos agora 2 propriedades novas no Object
Inspector e que ele já é adicionado ao form com as
propriedades que definimos, ou seja, menos trabalho para
personalização de componentes ao desenvolver um projeto!

No próximo artigo estarei apresentando toda a explicação
sobre a criação deste componente personalizado!

Um abraço a todos vocês... bons estudos... e até o próximo artigo!

Aos que tiverem duvidas com respeito ao que fizemos, eu me coloco
a disposição para dúvidas.... eder_fernandes@hotmail.com

Té +...

Éder R. Fernandes.