diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 7ded5e621e..ef6872d300 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -6723,6 +6723,13 @@ begin
   inherited AttachEvents;
   FViewPortEventHook := QObject_hook_create(viewportWidget);
   QObject_hook_hook_events(FViewPortEventHook, @ScrollViewEventFilter);
+  if (LCLObject is TScrollingWinControl) then
+  begin
+    if TScrollingWinControl(LCLObject).VertScrollBar.Visible then
+      FScrollY := -TScrollingWinControl(LCLObject).VertScrollBar.Position;
+    if TScrollingWinControl(LCLObject).HorzScrollBar.Visible then
+      FScrollX := -TScrollingWinControl(LCLObject).HorzScrollBar.Position;
+  end;
 end;
 
 function TQtWindowArea.CanAdjustClientRectOnResize: Boolean;
diff --git a/lcl/interfaces/qt5/qtwidgets.pas b/lcl/interfaces/qt5/qtwidgets.pas
index 8666fc9b85..a441522641 100644
--- a/lcl/interfaces/qt5/qtwidgets.pas
+++ b/lcl/interfaces/qt5/qtwidgets.pas
@@ -7019,6 +7019,13 @@ begin
   inherited AttachEvents;
   FViewPortEventHook := QObject_hook_create(viewportWidget);
   QObject_hook_hook_events(FViewPortEventHook, @ScrollViewEventFilter);
+  if (LCLObject is TScrollingWinControl) then
+  begin
+    if TScrollingWinControl(LCLObject).VertScrollBar.Visible then
+      FScrollY := -TScrollingWinControl(LCLObject).VertScrollBar.Position;
+    if TScrollingWinControl(LCLObject).HorzScrollBar.Visible then
+      FScrollX := -TScrollingWinControl(LCLObject).HorzScrollBar.Position;
+  end;
 end;
 
 function TQtWindowArea.CanAdjustClientRectOnResize: Boolean;
diff --git a/lcl/interfaces/qt6/qtwidgets.pas b/lcl/interfaces/qt6/qtwidgets.pas
index 5bd2a4146e..9ee012e576 100644
--- a/lcl/interfaces/qt6/qtwidgets.pas
+++ b/lcl/interfaces/qt6/qtwidgets.pas
@@ -6968,6 +6968,13 @@ begin
   inherited AttachEvents;
   FViewPortEventHook := QObject_hook_create(viewportWidget);
   QObject_hook_hook_events(FViewPortEventHook, @ScrollViewEventFilter);
+  if (LCLObject is TScrollingWinControl) then
+  begin
+    if TScrollingWinControl(LCLObject).VertScrollBar.Visible then
+      FScrollY := -TScrollingWinControl(LCLObject).VertScrollBar.Position;
+    if TScrollingWinControl(LCLObject).HorzScrollBar.Visible then
+      FScrollX := -TScrollingWinControl(LCLObject).HorzScrollBar.Position;
+  end;
 end;
 
 function TQtWindowArea.CanAdjustClientRectOnResize: Boolean;