Carlos;
bom dia;
Pelo que entendi, voce gostaria de chamar diversos procedimentos no
momento que estes eventos ocorressem, é isto? (não sei se entendi
direito...)
Caso.
se for, o Evento AfterPost, por exemplo, passa uma referencia ao objeto
a qual o evento esta ocorrendo.
....
procedure TDados.ADOTable1AfterPost(DataSet: TDataSet);
begin
end;
....
o DataSet do Tipo TDataSet; pode ser utilizado para chamar outros
procedimentos.
....
procedure TDados.Procedimetno(DataSet : TDataSet);
begin
ShowMessage('Numero de Registros: ' + IntToStr(DataSet.RecordCount));
end;
procedure TDados.ADOTable1AfterPost(DataSet: TDataSet);
begin
Procedimento(DataSet);
OutroProcedimento2(DataSet);
OutroProcedimento2(DataSet);
...
end;
....
Espero ter ajudado...
Atenc.
Elazar
*******************************************
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Carlos Delfino Carvalho Pinheiro
Enviada em: quinta-feira, 2 de fevereiro de 2006 10:09
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Listeners para Eventos como AfterPost e BeforePost!
Bons Dias!
Como já dito sou programador java, longe de querer estar comparando as
duas linguagens, mas também não posso abandonar minha experiência em
tal Linguagem! Estou tendo dificuldades para me adaptar em alguns
detalhes, conto com a colaboração de todos os colegas!
Tenho a necessidade de inserir diversos Procedimentos para que possam
ouvir (Listener) os eventos AfterPost e BeforePost de uma ADOTable!
Em Java, eu usaria um Padrão de Projeto Chamado Publish-Subscribe(A
GoF pattern (section 23.9 of Larman); Also known as publish-subscribe,
delegation-event model, event-listener model), que já implementado me
oferecia um Metodo chamado AddPropertyListener(String,Objeto), mas
percebi que em Delphi somente um Procedimento (ou melhor ponteiro para
procedimento)por vez pode ser adicionado como Ouvinte destes eventos!
Qual seria a melhor forma de se implementar multiplos Ouvintes? Criar
uma coleção e criar um unico metodo em um DataModule onde seria
adicionado os ouvintes segundários, e este metodo adicionado ao
Evento?
Existiria forma mais prática?
Obrigado!
--
Carlos Delfino
Consultoria e Pesquisa
Desenvolvimento de Softwares.
Sun Certified Associate for Java Platform
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
