Buscar por:

Capturando erro do programa

Código

Para capturar um erro do seu programa você pode fazer o seguinte:

Declare em public: procedure ErrorFound (Sender: TObject; E: Exception);

Na mesma linha da procedure aperte Shift+Ctrl+C, sua procedure foi criada como abaixo:

procedure TForm1.ErrorFound(Sender: TObject; E: Exception);

begin

end;

Coloque o seguinte na procedure:

Showmessage('O seguinte erro foi encontradro: '+E.Message);

No evento OnCreate do seu form coloque o seguinte:

Application.OnException := ErrorFound;

ErrorFound é a procedure que será chamada quado ocorrer um erro.