diff --git a/lcl/interfaces/cocoa/cocoaobject.inc b/lcl/interfaces/cocoa/cocoaobject.inc
index cb645d9f46..2ebd12ee13 100644
--- a/lcl/interfaces/cocoa/cocoaobject.inc
+++ b/lcl/interfaces/cocoa/cocoaobject.inc
@@ -658,6 +658,7 @@ end;
 procedure TAppDelegate.applicationDidResignActive(notification: NSNotification);
 begin
   Application.IntfAppDeactivate;
+  Application.DoBeforeMouseMessage(nil);
 end;
 
 procedure TAppDelegate.applicationDidChangeScreenParameters(notification: NSNotification);