Цитата:
|
Сообщение от morebeauty
Код:
procedure TForm1.ExceptionEvent(Sender: TObject; E: Exception);
begin
// ShowMessage(E.Message);
end; И как мне из этой процедуры завершить ту, которая в процессе выполнения? |
Наоборот. "Application.OnException" - это глобальный (корневой) обработчик исключения, поэтому в "TForm1.ExceptionEvent" мы попадём в случае необработанных исключений.
А процедура которая прерывается в том примере это "TForm1.Button1Click".