| 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 |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
