Index: lcl/comctrls.pp
===================================================================
--- lcl/comctrls.pp	(revision 63281)
+++ lcl/comctrls.pp	(working copy)
@@ -733,6 +733,7 @@
     procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
     procedure MouseEnter; override;
     procedure MouseLeave; override;
+    function GetPopupMenu: TPopupMenu; override;
     class procedure WSRegisterClass; override;
   end;
   TNoteBookStringsTabControlClass = class of TNoteBookStringsTabControl;
Index: lcl/include/tabcontrol.inc
===================================================================
--- lcl/include/tabcontrol.inc	(revision 63281)
+++ lcl/include/tabcontrol.inc	(working copy)
@@ -198,6 +198,14 @@
     TTabControl(Parent).OnMouseLeave(Parent);
 end;
 
+function TNoteBookStringsTabControl.GetPopupMenu: TPopupMenu;
+begin
+  if (Parent is TTabControl) and (nboHidePageListPopup in Self.Options) then
+    Result:=TTabControl(Parent).PopupMenu
+  else
+    Result:=inherited GetPopupMenu;
+end;
+
 class procedure TNoteBookStringsTabControl.WSRegisterClass;
 begin
   inherited WSRegisterClass;