diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index b75caf99db..07f2075c24 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -2071,7 +2071,7 @@ begin
       if (csNoFocus in LCLObject.ControlStyle) then
       begin
         if LCLObject.TabStop then
-          setFocusPolicy(QtWheelFocus)
+          setFocusPolicy(QtTabFocus)
         else
           setFocusPolicy(QtNoFocus);
       end else