Hola, este es mi procedimiento
Código Delphi
[-]
procedure TfrmTAlta.cmdEliminarClick(Sender: TObject);
begin
try
if (MessageDlg('¿Desea eliminar el Tipo de Alta?', mtWarning,[mbYes, mbNo],0) = mrYes) then
DMABMTablas.ABMTablas.TTalta.Delete;
except
on EDatabaseError do
MessageDlg ('Error en el acceso a la Base de Datos',mtError,[mbOK],0);
on E: Exception do
MessageDlg('Error en ' + E.ClassName + ': '+ #10 + E.Message,mtError,[mbOK],0);
on EAccessViolation do
MessageDlg ('Error en el acceso a la Base de Datos2',mtError,[mbOK],0);
end;
end;
pero no logro capturar el error de "Violation foreign key......." para mostrar un cartel de error
Gracias