Exemplo de como fazer
TNotifyEvent = procedure(Sender: TObject) of object;
TMeuComponente = class(TComponente)
private
FOnChange: TNotifyEvent;
published
property OnChange: TNotifyEvent read FOnChange write FOnChange;
end;
2008/9/29 BandaLemuel <[EMAIL PROTECTED]>
> Uma pergunta..
>
> Como crio eventos que mostrem no object inpector... ???
>
> Wesley
>
>
> From: BandaLemuel
> Sent: Monday, September 29, 2008 3:03 PM
> To: [email protected]
> Subject: Re: [delphi-br] Componente
>
>
> Pessoal
>
> Achei a solução...
>
> { Mostra a tela de Configuração }
> procedure TConfigbanco.MostraTelaConfiguracao;
> begin
> if FrmConfiguraBanco = nil then
> begin
> Application.CreateForm( TFrmConfiguraBanco , FrmConfiguraBanco );
> FrmConfiguraBanco.ShowModal ;
> end
> else
> FrmConfiguraBanco.ShowModal ;
> end;
>
> vlw...
>
> Wesley
>
> From: BandaLemuel
> Sent: Monday, September 29, 2008 2:53 PM
> To: [email protected]
> Subject: [delphi-br] Componente
>
> Lista
>
> Estou criando um componente que vai ser responsavel por configurar o banco
> de dados do Cliente atraves de um arquivo ini, e neste componente quero
> colocar um formulario para a configuração , caso não consiga conexão... e
> esta dando erro quando ele vai puxar o formulario responsável pela
> configuração segue o codigo que chama o formulario....
>
> { Mostra a tela de Configuração }
> procedure TConfigbanco.MostraTelaConfiguracao;
> var
> Tela : TFrmConfiguraBanco ;
> begin
> if Tela = nil then
> begin
> Tela := TFrmConfiguraBanco.Create( nil );
> Tela.ShowModal ;
> end
> else
> Tela.ShowModal;
> end;
>
> O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo
> chama-lo é assim mesmo ???
>
> Obrigado...
>
> Wesley
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __________ Information from ESET NOD32 Antivirus, version of virus
> signature database 3480 (20080929) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
> __________ Information from ESET NOD32 Antivirus, version of virus
> signature database 3480 (20080929) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
> ------------------------------------
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
--
Abs
Daniel A. Bastos
[As partes desta mensagem que não continham texto foram removidas]
