From cab53de86df5fcb66f9260fe7d7d99dc98e29ea9 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 14 Jan 2019 12:16:26 +0000
Subject: [PATCH] LCL: fixed regression from r59186 #8d0fe522bb. issue #34870

git-svn-id: trunk@60081 -
---
 lcl/include/customnotebook.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/customnotebook.inc b/lcl/include/customnotebook.inc
index cf0aef9387..cf13761fde 100644
--- a/lcl/include/customnotebook.inc
+++ b/lcl/include/customnotebook.inc
@@ -1143,7 +1143,7 @@ procedure TCustomTabControl.ShowCurrentPage;
   begin
     Result := False;
     lForm := GetParentForm(APage);
-    if not Assigned(lForm) then Exit;
+    if not Assigned(lForm) or not lForm.Visible then Exit;
     for i := 0 to APage.ControlCount - 1 do
       if APage.Controls[i] = lForm.ActiveControl then
         Exit(True);