From d3da7384645207e06283362fdfb89c60573d8e04 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Tue, 20 Apr 2010 19:09:31 +0000
Subject: [PATCH] Qt: fixed crash when asking for TQtPage.getIndex(), fixes
 #16302

git-svn-id: trunk@24752 -
---
 lcl/interfaces/qt/qtwidgets.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index d61c040757..143f542ff3 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -10431,7 +10431,7 @@ var
   AParent: QTabWidgetH;
 begin
   AParent := getTabWidget;
-  if AParent <> nil then
+  if (AParent <> nil) and QWidget_isVisible(AParent) then
     Result := QTabWidget_indexOf(AParent, Widget)
   else
     Result := -1;