Como pegar o Evento atual?

04/08/2008

1

Boa tarde galera,

Estou criando uma rotina de tratamento de erros e gostaria de pegar o evento atual.

Exemplo:

Faz de conta que o usuario clicou no botão1 ai ocorre um erro, ai quero gravar o evento em uma tabela ... com o seguinte texto: erro no evento botao1onClick

alguém pode me ajudar ?

Obrigado !!!


Responder

Posts

05/08/2008

Aroldo Zanela

Colega,

Delphi ainda é Orientado a objeto e não a aspecto. Portanto, atualmente a única forma de se fazer isso (certo) é introduzindo blocos try...except em cada evento.


Responder

05/08/2008

Joaohueder

[quote:7f1d4cf037=´Aroldo Zanela´]Colega,

Delphi ainda é Orientado a objeto e não a aspecto. Portanto, atualmente a única forma de se fazer isso (certo) é introduzindo blocos try...except em cada evento.[/quote:7f1d4cf037]

Bom dia Aroldo,

é justamente o que vou fazer, eu só queria saber se tem como pegar o evento atual, pois na hora do except vou gravar na tabela de log_erro onde deu o erro.

Vlw e obrigado pela atenção !


Responder

05/08/2008

Paulo

try seus códigos except on E:Exception do begin ShowMessage(´Nome do Erro´ + e.message); end;

No lugar do ShowMessage, use seu código de gravar log. Pode usar o TApplicationEvents para tratar eventos de erros.


Responder