diff --git a/lcl/interfaces/qt/qtobject.inc b/lcl/interfaces/qt/qtobject.inc
index 1b87095776..20b2c543cf 100644
--- a/lcl/interfaces/qt/qtobject.inc
+++ b/lcl/interfaces/qt/qtobject.inc
@@ -249,6 +249,9 @@ begin
           if QWidget_focusPolicy(QWidgetH(Sender)) = QtTabFocus then
           begin
             // remove tab from focus policy
+            {$ifdef VerboseTabbedControls}
+              WriteLn('found Taabed widget ', PtrInt(Sender));
+            {$endif}
             QWidget_setFocusPolicy(QWidgetH(Sender), QtClickFocus);
             QWidget_setFocus(FOldFocusWidget);
           end