Interceptar e desviar um evento

Question

Ol� Pessoal.Eu tenho a seguinte duvida: � possivel interceptar um evento e desviar para um procedimento feito por mim? Deixa eu explicar melhor, por ex.: o evento BeforeInsert de uma query ou table qu...

Flaviosan · Answer

Ser� que alguem sabe?...

Marco Salles · Answer

[quote:43240bb07b]quando dou um insert na tabela, antes de executar a a��o � chamado o evento BeforeInsert, certo? [/quote:43240bb07b]� Chamado Se Voce Tiver Definido... N�o � Necess�rio :!: Mas Alguns  Eventos Ocorrem Antes... Quando Damos Um Comando De Inser��o Geralmente a Ordem Dos Eventos �:1)BeforeScroll;2)OnDataChange3)AfterScroll4)BeforeInsert etc...Voce Pode Incerptar o Evento BeforeScroll Utilizando O Evento OndataChangeExemplo:[code:1:43240bb07b]procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);beginif DataSource1.State in &#91;dsinsert&93; then  InsertPersonalizado;end;[/code:1:43240bb07b]Agora o Outro Ponto De Sua D�vida e Desconectar Temporariamente Um Evento...Isto Geralmente � Usado Para Evitar Recurs�es Infinitas, Ou Evitar Problemas De Efeitos Colaterais...Num Sei Se Aplica No Seu Caso...[code:1:43240bb07b]Para Desconectar o Evento OnBeforeInsert:Table1.BeforeInsert:=Nil;Para Reconectar:Table1.BeforeInsert:=Table1BeforeInsert;[/code:1:43240bb07b]P:S Para Compilar, o Evento BeforeInsert Tem Que Estar Definido......

Flaviosan · Answer

Marco Salles, obrigado pela sua aten��o.
Me responda uma coisa, na primeira parte da sua resposta,

Mas Alguns Eventos Ocorrem Antes... Quando Damos Um Comando De Inser��o Geralmente a Ordem Dos Eventos �: 1)BeforeScroll; 2)OnDataChange 3)AfterScroll 4)BeforeInsert etc... Voce Pode Incerptar o Evento BeforeScroll Utilizando O Evento OndataChange

voce quis dizer que antes de um insert ser executado ele passa por todos esses eventos? Se eu realizar alguma opera��o no evento AfterScroll ele sera executato antes da inser��o?
Mais uma coisa, no evento BeforeInsert se eu usar um comando Exit para sair do procedimento ele n�o realizara o insert?
Agrade�o muito se puder me ajudar.

Paullus · Answer

[quote:f876a909a8]Mais uma coisa, no evento BeforeInsert se eu usar um comando Exit para sair do procedimento ele n�o realizara o insert? Agrade�o muito se puder me ajudar.[/quote:f876a909a8]Se voc� usar o comando exit ele simplesmente vai sair do procedimento que est� sendo executado passando em seguida para o pr�ximo (o Insert), ou seja, ele deixa de executar o restante do corpo do seu procedimento e em seguida executa a inser��o.Se voc� quiser parar o procedimento tente dar um Cancel (apesar de eu n�o ter certeza se vai funcionar). :wink:...

Marco Salles · Answer

[quote:b80b45a23b]voce quis dizer que antes de um insert ser executado ele passa por todos esses eventos?[/quote:b80b45a23b]Sim...Desde Que Voce Programe Algo Nestes Eventos[quote:b80b45a23b] Se eu realizar alguma opera��o no evento AfterScroll ele sera executato antes da inser��o?[/quote:b80b45a23b] Sim...Mas Voce Deve Tomar O Cuidado Porque Este Evento � Dispardo Em V�rias Situa��es e N�o Na Situa��o Particular Em Que Um RegistroEsta Sendo Inserido No Banco..Por Exemplo Qundo Voce D� Um Comando Table1.Next, Este Evento Tamb�m � Disparado...[code:1:b80b45a23b]Mais uma coisa, no evento BeforeInsert se eu usar um comando Exit para sair do procedimento ele n�o realizara o insert? [/code:1:b80b45a23b]Esta O Paullus Respondeu:[quote:b80b45a23b]Se voc� usar o comando exit ele simplesmente vai sair do procedimento que est� sendo executado passando em seguida para o pr�ximo (o Insert), ou seja, ele deixa de executar o restante do corpo do seu procedimento e em seguida executa a inser��o. Se voc� quiser parar o procedimento tente dar um Cancel (apesar de eu n�o ter certeza se vai funcionar). [/quote:b80b45a23b]...

F�rum Interceptar e desviar um evento #223668