diff --git a/lcl/interfaces/qt5/qtwidgets.pas b/lcl/interfaces/qt5/qtwidgets.pas index d24e2c8768..3458970b87 100644 --- a/lcl/interfaces/qt5/qtwidgets.pas +++ b/lcl/interfaces/qt5/qtwidgets.pas @@ -7019,7 +7019,7 @@ begin Result := QMainWindow_create(nil, QtWindow); - MenuBar := TQtMenuBar.Create(Result); + MenuBar := TQtMenuBar.Create({$IFNDEF DARWIN}nil{$ELSE}Result{$ENDIF}); if not (csDesigning in LCLObject.ComponentState) then MenuBar.FIsApplicationMainMenu := True @@ -7096,14 +7096,9 @@ begin QWidget_setMouseTracking(Result, True); end; - // Main menu bar - {$IFDEF DARWIN} - MenuBar := TQtMenuBar.Create(nil); - {$ELSE} MenuBar := TQtMenuBar.Create(Result); if (csDesigning in LCLObject.ComponentState) then MenuBar.setProperty(MenuBar.Widget,'lcldesignmenubar',1); - {$ENDIF} {$IFDEF QTSCROLLABLEFORMS} if QWidget_windowType(Result) = QtSplashScreen then diff --git a/lcl/interfaces/qt6/qtwidgets.pas b/lcl/interfaces/qt6/qtwidgets.pas index 7424a62816..7cd5e96497 100644 --- a/lcl/interfaces/qt6/qtwidgets.pas +++ b/lcl/interfaces/qt6/qtwidgets.pas @@ -7037,7 +7037,7 @@ begin Result := QMainWindow_create(nil, QtWindow); - MenuBar := TQtMenuBar.Create(Result); + MenuBar := TQtMenuBar.Create({$IFNDEF DARWIN}nil{$ELSE}Result{$ENDIF}); if not (csDesigning in LCLObject.ComponentState) then MenuBar.FIsApplicationMainMenu := True @@ -7115,13 +7115,9 @@ begin end; // Main menu bar - {$IFDEF DARWIN} - MenuBar := TQtMenuBar.Create(nil); - {$ELSE} MenuBar := TQtMenuBar.Create(Result); if (csDesigning in LCLObject.ComponentState) then MenuBar.setProperty(MenuBar.Widget,'lcldesignmenubar',1); - {$ENDIF} {$IFDEF QTSCROLLABLEFORMS} if QWidget_windowType(Result) = QtSplashScreen then