diff --git a/lcl/interfaces/cocoa/cocoaprivate.pp b/lcl/interfaces/cocoa/cocoaprivate.pp
index bd62e1396b..3bfa16fc9b 100644
--- a/lcl/interfaces/cocoa/cocoaprivate.pp
+++ b/lcl/interfaces/cocoa/cocoaprivate.pp
@@ -1325,6 +1325,7 @@ end;
 
 procedure TCocoaCustomControl.mouseMoved(event: NSEvent);
 begin
+if not Assigned(callback) or not callback.MouseMove(event) then
   inherited mouseMoved(event);
 end;