diff --git a/lcl/interfaces/qt5/qtwidgets.pas b/lcl/interfaces/qt5/qtwidgets.pas index d98f0ad3e6..54c4119ce0 100644 --- a/lcl/interfaces/qt5/qtwidgets.pas +++ b/lcl/interfaces/qt5/qtwidgets.pas @@ -7624,7 +7624,12 @@ begin Result := inherited getClientOffset; if Assigned(ScrollArea) and Assigned(FMenuBar) and (FMenuBar.getVisible) then + begin + if Assigned(LCLObject) and IsFormDesign(LCLObject) and (LCLObject.Parent <> nil) then + // issue #41637 + else inc(Result.Y, FMenuBar.getHeight); + end; {$ELSE} Result:=inherited getClientOffset; {$ENDIF} diff --git a/lcl/interfaces/qt6/qtwidgets.pas b/lcl/interfaces/qt6/qtwidgets.pas index f56c1b8c40..e2ab859498 100644 --- a/lcl/interfaces/qt6/qtwidgets.pas +++ b/lcl/interfaces/qt6/qtwidgets.pas @@ -7544,7 +7544,12 @@ begin Result := inherited getClientOffset; if Assigned(ScrollArea) and Assigned(FMenuBar) and (FMenuBar.getVisible) then + begin + if Assigned(LCLObject) and IsFormDesign(LCLObject) and (LCLObject.Parent <> nil) then + // issue #41637 + else inc(Result.Y, FMenuBar.getHeight); + end; {$ELSE} Result:=inherited getClientOffset; {$ENDIF}