Colunista ainda sem descrição. Caro colunista, por favor envie-nos sua descrição.
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.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009