No atrapa la excepcion

[[egostar]]

Empezado por analia1979

hola a todos...

Tengo un codigo con try except que no esta tomando la excepcion y la maneja el handler interno cuando lo ejecuto desde el IDE de delphi.

Si lo ejecuto fuera del ide no hace nada.

Si alguien me puede ayudar.. en que estoy fallando, mil gracias..

Hola, trata con esto

Código Delphi [-]
if MessageBox(Handle, PChar('Desea Eliminar'), PChar('Confirmacion'), $00000024) = IDYES then
  begin
    try
      TClientDataSet(dsBase.DataSet).Delete;
      TClientDataSet(dsBase.DataSet).ApplyUpdates(0);
    except
      ShowMessage('Ese registro está relacionado con otras tablas');
    end;
  end;
end;

Salud OS