MarcosG2

E ai galera! PRECISO DE AJUDA!!! O que acontece? Estou incluindo o seguinte código no evento PostError da minha table pra tratar os possiveis erros da minha aplicação: ---------------------- ---------------------- ---------------------- ---------------- procedure TFrmAlunos.AlunosPostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); begin inherited; if (E is EDBEngineError) then with EDBEngineError(E) do case Errors[0].ErrorCode of DBIERR_KEYVIOL: ShowMessage('Aluno já cadastrado!'); DBIERR_REQDERR: ShowMessage('Campo obrigatório não preenchido!'); end else ShowMessage('Erro no banco de dados:'+#13#13+ E.Message); Action := daAbort; end; ---------------------- ---------------------- ---------------------- ---------------- Mas sempre quando acontece um erro, primeiro ele mostra o erro padrão do delphi e depois que "recompilo" o sistema, ele apresenta a mensagem tratada! O que eu faço pra minha aplicação não mostrar o erro do delphi, somente o erro com o tratamento? Me ajudem...

E ai galera! PRECISO DE AJUDA!!! O que acontece? Estou incluindo o seguinte código no evento PostError da minha table pra tratar os possiveis erros da minha aplicação: ---------------------- ---------------------- ---------------------- ---------------- procedure TFrmAlunos.AlunosPostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); begin inherited; if (E is EDBEngineError) then with EDBEngineError(E) do case Errors[0].ErrorCode of DBIERR_KEYVIOL: ShowMessage('Aluno já cadastrado!'); DBIERR_REQDERR: ShowMessage('Campo obrigatório não preenchido!'); end else ShowMessage('Erro no banco de dados:'+#13#13+ E.Message); Action := daAbort; end; ---------------------- ---------------------- ---------------------- ---------------- Mas sempre quando acontece um erro, primeiro ele mostra o erro padrão do delphi e depois que "recompilo" o sistema, ele apresenta a mensagem tratada! O que eu faço pra minha aplicação não mostrar o erro do delphi, somente o erro com o tratamento? Me ajudem...