Set Delphi-like default exception handler (without 'Cancel' button)

diff --git a/src/editor/Editor.lpr b/src/editor/Editor.lpr
index f1a9c3055c2b81e17809a831312df8aba3ba392e..91df01a9a42c55124e95fdcc9e4fd2350619781a 100644 (file)
--- a/src/editor/Editor.lpr
+++ b/src/editor/Editor.lpr
@@ -52,6 +52,7 @@ uses
 {$R *.res}
 
 begin
+  Application.ExceptionDialog := aedOkMessageBox;
   Application.Initialize();
 
   Application.CreateForm(TMainForm, MainForm);