win32: handle exceptions in OnTimer

git-svn-id: trunk@64033 -
2025-04-22 13:59:31 +02:00 · 2020-10-17 05:57:32 +00:00 · 2020-10-17 05:57:32 +00:00 · 6b261ef9c4
commit 6b261ef9c4
parent 610353511b
1 changed files with 6 additions and 1 deletions
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@ -2939,7 +2939,12 @@ begin
    dec(n);
    TimerInfo := FTimerData[n];
    if TimerInfo^.TimerID=idEvent then begin
-      TimerInfo^.TimerFunc;
+      try
+        TimerInfo^.TimerFunc;
+      except
+        Application.HandleException(nil);
+      end;
+
      break;
    end;
  end;