Mensajes De Error Firebird En Delphi

[dandia28]

Hola, quiero saber si hay alguna forma "automática" de por ejemplo cuando un usuario elimina un registro de una tabla y este tiene registros relacionados en otra tabla en lugar de que aparezca el error de la exepcion que aparezca por ejemplo: " No se puede eliminar, hay registros relacionados en la tabla XXX".

Saludos, Daniel

[jhonny]

Prueba con el siguiente codigo y nos cuentas si te funciona...

Código Delphi [-]
try

  //Lo que tienes que hacer para guardar dicho dato

except
on E: EDBEngineError DO
begin
  if E.Errors[0].ErrorCode = 9733 then //9733 es el codigo de error de los ForeingKey
  begin
    ShowMessage('No se puede eliminar, hay registros relacionados en la tabla XXX'); //Organizas tu mensaje aqui...
  end
  else
  begin
    raise; //Por si no es error de ForeingKey si no mas bien otra cosa...
  end;
end;

[dandia28]

Gracias por la respuesta, el único problema es que estoy trabajando con DBX y no encuentro la forma de hacer lo mismo.....