----- Mensagem original ----
De: Luciano Calenzani Simões <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 2 de Setembro de 2008 17:18:17
Assunto: Res: [delphi-br] Criando novo componente

 No escopo de visibilidade protected coloque:

procedure DoClick; override;

No implementation, escreva:

procedure TEditCustomizado. DoClick;
begin
inherited;
Color := clInfoBk; // Por exemplo, trocando a cor.
end;

Alguns links:
http://imasters. uol.com.br/ artigo/343/ delphi/criando_ componentes_ 
no_delphi_ -_parte_1/
http://imasters. uol.com.br/ artigo/342/ delphi/criando_ componentes_ 
no_delphi_ -_parte_2/
http://imasters. uol.com.br/ artigo/341/ delphi/criando_ componentes_ 
no_delphi_ -_final/

Luciano Calenzani Simões
----- Fim da mensagem original ----

Só uma dica: deixe a linha inherited antes do código que vc quer adicionar para 
q ele seja executado DEPOIS do evento que vc codificar no formulário (como no 
exemplo). Para que o código seja executado antes do código do formulário, deixe 
o inherited como última linha da rotina.

[]'s

 ---------------------------------------------------
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---------------------------------------------------
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---------------------------------------------------
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---------------------------------------------------


      Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Responder a