Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
infotec.dvd Profissional
Registrado: Quarta-Feira, 23 de Setembro de 2009 Mensagens: 677 Localização: Vitória ES
|
Enviada: Qua Jun 16, 2010 4:17 pm Assunto: Aplication Events |
|
|
Galera,
tem como usar o applicationEvents criando este componente em tempo de execução? Digo, tem como implementar o evento OnException em tempo de execução? |
|
Voltar ao Topo |
|
|
rafmattos Colaborador
Registrado: Quinta-Feira, 11 de Fevereiro de 2010 Mensagens: 3416 Localização: Campo Grande/MS
|
Enviada: Qua Jun 16, 2010 4:28 pm Assunto: |
|
|
tenta assim:
Código: |
procedure TfrmPrincipal.Seu_xException(Sender: TObject;
E: Exception);
begin
// seu código
end;
|
depois vc joga o Seu_xException no OnExeception
Código: |
procedure TfrmPrincipal.FormCreate(Sender: TObject);
var
xApp : TApplicationEvents;
begin
xApp := TApplicationEvents.Create(Self);
xApp.OnException := Seu_xException;
end;
|
faz o teste, não testei |
|
Voltar ao Topo |
|
|
infotec.dvd Profissional
Registrado: Quarta-Feira, 23 de Setembro de 2009 Mensagens: 677 Localização: Vitória ES
|
Enviada: Qua Jun 16, 2010 4:29 pm Assunto: |
|
|
a minha classe não tem form, dá pra fazer o q disse? |
|
Voltar ao Topo |
|
|
rafmattos Colaborador
Registrado: Quinta-Feira, 11 de Fevereiro de 2010 Mensagens: 3416 Localização: Campo Grande/MS
|
Enviada: Qua Jun 16, 2010 4:33 pm Assunto: |
|
|
infotec.dvd escreveu: | a minha classe não tem form, dá pra fazer o q disse? |
amigo acho q não teria nada, ave
tenta fazer, se der erro , posta aqui
de novo |
|
Voltar ao Topo |
|
|
igormoita Profissional
Registrado: Quinta-Feira, 14 de Janeiro de 2010 Mensagens: 601
|
Enviada: Ter Fev 15, 2011 9:15 pm Assunto: |
|
|
Boa noite, minha duvida não tem nd haver c a do 'infotec.dvd', estou apenas reaproveitando o tópico.
Tem necessidade de colocar Abort dentro do evento 'OnException' do ApplicationEvents?
ex:
Código: | procedure TFormMain.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
try
//LInhas com os tratamentos de erros
finally
Abort;
end;
end; |
A idéia seria o sistema abortar a operacao qnd acontecer o erro, mas no D2010 qnd da Abort dentro do OnException aparecer a msg 'Operation aborted' (eu acho q é essa msg), dai o sistema fecha.
Teria outra maneira de fazer esse Abort ou o OnException ja faz isso automatico? |
|
Voltar ao Topo |
|
|
|