diff --git a/lcl/interfaces/qt/qtwsmenus.pp b/lcl/interfaces/qt/qtwsmenus.pp
index 20390364f3..00cec82c6b 100644
--- a/lcl/interfaces/qt/qtwsmenus.pp
+++ b/lcl/interfaces/qt/qtwsmenus.pp
@@ -221,7 +221,10 @@ begin
 
   Widget := TQtWidget(AMenuItem.Handle);
   if Widget is TQtMenu then
+  begin
+    TQtMenu(Widget).setSeparator(ACaption = cLineCaption);
     TQtMenu(Widget).setText(GetUtf8String(ACaption));
+  end;
 end;
 
 {------------------------------------------------------------------------------