Skip to content

Instantly share code, notes, and snippets.

@viniciussanchez
Created November 18, 2022 13:43
Show Gist options
  • Save viniciussanchez/b2ed13965d69d3be14643b5ca949a751 to your computer and use it in GitHub Desktop.
Save viniciussanchez/b2ed13965d69d3be14643b5ca949a751 to your computer and use it in GitHub Desktop.
DPR do projeto de exemplo de como controlar as exceções de uma aplicação desenvolvida em Delphi
program HandlerException;
uses
Vcl.Forms,
Handler.Exception.Main in 'src\Handler.Exception.Main.pas' {FrmMain},
Handler.Exception in 'src\Handler.Exception.pas';
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TFrmMain, FrmMain);
// linha adicionada
Application.OnException := TMyHandlerException.DoHandlerException;
Application.Run;
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment