diff --git a/lcl/interfaces/cocoa/cocoaprivate.pp b/lcl/interfaces/cocoa/cocoaprivate.pp
index 9d663dc5c0..f0639fd1d3 100644
--- a/lcl/interfaces/cocoa/cocoaprivate.pp
+++ b/lcl/interfaces/cocoa/cocoaprivate.pp
@@ -1768,8 +1768,10 @@ end;
 
 procedure TCocoaButton.mouseDown(event: NSEvent);
 begin
-  if not callback.MouseUpDownEvent(event) then
-    inherited mouseDown(event);
+  callback.MouseUpDownEvent(event);
+  // We need to call the inherited regardless of the result of the call to
+  // MouseUpDownEvent otherwise mouse clicks don't work, see bug 30131
+  inherited mouseDown(event);
 end;
 
 procedure TCocoaButton.mouseDragged(event: NSEvent);