[rgstuamigo]

Empezado por cocute

Muchas gracias, lo he solucionado de este modo, no se si esto se puede simplificar de algún modo sin poner tanto código:

Código Delphi [-]declarando esto primero: procedure MyExceptionHandler(Sender : TObject; E : Exception ); procedure TForm1.MyExceptionHandler( Sender : TObject; E : Exception ); var wRetVal : Word; begin end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnException := MyExceptionHandler; end;

lo que he hecho es coger este ejemplo y dejar el procedimiento MyExceptionHandler en blanco para que no haga nada.
http://www.chami.com/tips/delphi/011497D.html
No se si hay algun modo de hacer lo mismo más simple.
Pero vamos lo importante es que me funciona como esperaba.

Soy consciente de que no es nada recomendable hacer esto, pero en mi caso lo considero una excepción, vamos que se lo que me hago.

Bueno ese código te va funcionar siempre y cuando no hayas capturado alguna excepción dentro de tu código por ejemplo has la prueba a poner dentro del evento Onclick de un boton esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var a:Integer;
begin
   try
     a:=StrToInt('Hola 123');//<-linea de código que provocará una Excepcion
   except on E: Exception do
      ShowMessage('Esta Excepcion no deberia salir pero Sí sale por que la he capturado..'); 
   end;
end;

Se supone que cuando asigno un Procedure(MyExceptionHandler en este caso) al evento OnException del objeto Application tal como lo has hecho, al ocurrir una excepción deberia ejecutarse el mismo, pero como vemos, eso no ocurre si hemos capturado alguna excepcion en alguna parte., lo que significa que lo que has hecho no es muy seguro que digamos.
Saludos...