Witam,
co zrobić, aby TApplicationEvents kontynuował procedurę mimo wystąpienia błędu?
Przykład :
procedure Zlo;
begin
ShowMessage('1'); // wyświetli "1"
ShowMessage(IntToStr(StrToInt('aaa'))); // wyświetli "Błąd", zatrzyma wykonywanie procedury
ShowMessage('2'); // nic się nie stanie
end;
procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
ShowMessage('Błąd');
end;