pudiera usar algo como lo siguiente:
Código Delphi
[-]
procedure TForm1.AppExcept(Sender : TObject; E : Exception);
begin
if (Pos('DUPLICATE ENTRY',UpperCase(e.Message)) > 0) then
begin
end else
if Pos('IS NOT A VALID FLOATING POINT',UpperCase(e.Message)) > 0 then
MessageDlg('El tipo de Datos es Invalido.' + #13 + #10 +
'Verifiquelo por Favor', mtWarning, [mbOK], 0)
else
if Pos('IVA',UpperCase(e.Message)) > 0 then
MessageDlg('El I.V.A. esta fuera del rango (0-50).' + #13 + #10 +
'Verifiquelo por Favor', mtWarning, [mbOK], 0)
else
if Pos(QuotedStr('ENTREGADO') + ' MUST HAVE A VALUE',UpperCase(e.Message)) > 0 then
MessageDlg('El campo de Entregado debe tener un Valor' + #13 + #10 +
'Verifiquelo por Favor', mtWarning, [mbOK], 0)
else
begin
MessageDlg('Ha Ocurrido un Error en el Sistema.' + #13 + #10 +
'Intente de Nuevo la Operacion', mtWarning, [mbOK], 0);
end;
end;
y en el oncreate de la forma
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppExcept;
end;