Manejo de una excepcion EDBEngineError

[Jparra]

Hola,

Necesito manejar una excepcion al tratar de conectarme a una Base de datos:

try
    DataModule1.PixelSQLbase.Connected := True;
    Result := True;
except
  Conectar := False;  
 On EDBEngineError do
     Begin
       DataModule1.PixelSQLbase.Connected := False;
       ShowMessage('ERROR 1:');
     End;
 On EDatabaseError do ShowMessage('ERROR');
     End;
end;

Pero este codigo aun me "EXPLOTA" y cuando vuelvo a ejecutar el proyecto si me tira el mensaje que puse.

He inteentado encontrar un Haddle que pueda funcionar pero no he tenido suerte.

[roman]

Esto puede deberse a que ejecutas el proyecto desde el IDE y tienes activada la opción "Stop on Delphi Exceptions" del cuadro Debugger Options (Ficha language exceptions).

Si tal es el caso, no debes preocuparte, porque al correr el programa fuera del ide, sólo se verá tu mensaje.

// Saludos