Mensagem de Exceção no exemplo do ACBrEtq

[bnobre]

Olá a todos,

Estou estudando o exemplo do ACBrEtq e uma coisa me chamou a atenção.

Em nenhuma parte do código do UPrincipal eu achei algum except para tratar exceções e exibir ao usuário os erros, como por exemplo falta de comunicação com a impressora.

No entanto, sempre que ocorre uma exceção no aplicativo, um alerta com ícone de erro e a mensagem do erro é exibida ao usuário. Como é feito isso? Como esse alerta é exibido sem o aparente uso do except?

Desde já agradeço a atenção de todos

[Daniel Simoes]

Não se compreendi bem o tópico... poderia postar um Print ?

 

[BigWings]

Em 06/07/2019 at 09:51, doidopb disse:

No entanto, sempre que ocorre uma exceção no aplicativo, um alerta com ícone de erro e a mensagem do erro é exibida ao usuário. Como é feito isso? Como esse alerta é exibido sem o aparente uso do except? 

Sem o tratamento com try..except, o Delphi faz o tratamento padrão da exceção, TApplication.ShowException, implementado na unit Forms.

O resultado é a mensagem na tela.

[bnobre]

5 horas atrás, BigWings disse:

Sem o tratamento com try..except, o Delphi faz o tratamento padrão da exceção, TApplication.ShowException, implementado na unit Forms.

O resultado é a mensagem na tela.

Olá meu amigo,

Verdade... Iniciei um novo VCL Forms Application - Delphi e forcei uma exceção, realmente ele exibiu o alerta conforme você disse.

Mas na minha aplicação quando eu NÃO coloco o try.. except em algum form, ela não exibe o alerta e o usuário fica sem saber o que houve, então sou obrigado a colocar o try.. except, não sei porque... Mas de qualquer forma agradeço a explicação.

Abraços

[BigWings]

10 minutos atrás, doidopb disse:

Mas na minha aplicação quando eu NÃO coloco o try.. except em algum form, ela não exibe o alerta e o usuário fica sem saber o que houve, então sou obrigado a colocar o try.. except, não sei porque... Mas de qualquer forma agradeço a explicação.

Pode ter algum tratamento global de exceções no seu projeto.

 

[bnobre]

7 minutos atrás, BigWings disse:

Pode ter algum tratamento global de exceções no seu projeto.

 

Perfeito meu amigo, você elucidou o mistério...

Eu tenho um componente ApplicationEvents com o evento OnException implementado com um exemplo que eu peguei da internet com algumas exceções básicas (violação de chave, valor inválido, data inválida, etc), mas não existia um alerta padrão para erros que não se enquadrassem nessa lista de exceções básicas, agora eu coloquei um

if excecaobasica1 Then
	ShowMessage('excecaobasica1')
else 
if excecaobasica2 Then
	ShowMessage('excecaobasica2')
else 
if excecaobasica3 Then
	ShowMessage('excecaobasica3')
else

...
//Se nenhuma das anteriores, exiba um alerta padrão
	ShowMessage(E.Message); 

Eu não sabia que ao colocar o ApplicationEvents com o evento OnException implementado o Delphi ignoraria o alerta padrão dele (TApplication.ShowException) e passaria a enxergar somente o OnException do ApplicationEvents.

Obrigado novamente

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.