diff --git a/lcl/interfaces/qt/qtdefines.inc b/lcl/interfaces/qt/qtdefines.inc
index 9d07e5e54d..2e71eb1ee1 100644
--- a/lcl/interfaces/qt/qtdefines.inc
+++ b/lcl/interfaces/qt/qtdefines.inc
@@ -8,7 +8,5 @@
   {$IF DEFINED(DARWIN) AND DEFINED(CPU64)}
   {$DEFINE QTCOCOA}
   {$ENDIF}
-  {$IFNDEF QTCOCOA}
   {$DEFINE QTSCROLLABLEFORMS}
-  {$ENDIF}
 {$ENDIF}
diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 67d761ab54..63ed85ddff 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -3806,8 +3806,14 @@ begin
       Msg.WheelDelta := -1;
     Msg.WheelDelta := (120 * Msg.WheelDelta) div Mouse.WheelScrollLines;
     if FOwner <> nil then
-      CCtl := TQtAbstractScrollArea(FOwner)
-    else
+    begin
+      {$IFDEF QTSCROLLABLEFORMS}
+      if (FOwner is TQtMainWindow) then
+        CCtl := TQtMainWindow(FOwner).ScrollArea
+      else
+      {$ENDIF}
+        CCtl := TQtAbstractScrollArea(FOwner);
+    end else
       CCtl := TQtAbstractScrollArea(Self);
     //now fix ugly behaviour.
     if (Msg.WheelDelta > 0) and (CCtl.FVScrollbar.getVisible) and