Tratamento de Exceções Centralizada
26/01/2006
0
Raserafim
Posts
26/01/2006
Leonardobhbr
procedure ManipulaExcecoes(Sender: TObject; E: Exception);
begin
MessageDlg(E.Message , mtError, [mbOK], 0);
end;
e no create do form principal
Application.OnException := ManipulaExcecoes;
01/02/2006
Raserafim
mas como saber que tipo de erro ocorreu para então apresentar uma mensagem personalisada?
01/02/2006
Leonardobhbr
procedure ManipulaExcecoes(Sender: TObject; E: Exception);
begin
if E is EDBEngineError then begin//se o erro for bde
if ErrorCode = 9734 then
ShowMessage(´Este registro não pode ser removido, outros arquivos precisam dele.´)
end;
end;
Resumindo vc vai ter que ver os possiveis erros que sua aplicação pode retornar ou então procure dentro da pasta do delphi \Source\Vcl
os arquivos que contem o nome consts neles fica as mensagens de erro
traduza eles e recompile os arquivos
Clique aqui para fazer login e interagir na Comunidade :)