diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 558d28f7a1..5228cb31b1 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -1958,6 +1958,9 @@ begin
   begin
     if csNoFocus in LCLObject.ControlStyle then
       setFocusPolicy(QtNoFocus)
+    else
+    if (Self is TQtTabWidget) then
+      setFocusPolicy(QtTabFocus)
     else
       setFocusPolicy(QtClickFocus);
   end;