diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index edb30cd78c..a062e7e86c 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -5008,7 +5008,7 @@ end;
 procedure TQtWidget.setFocus;
 begin
   if getFocusPolicy <> QtNoFocus then
-    QWidget_setFocus(Widget, QtOtherFocusReason) {issue #10155}
+    QWidget_setFocus(Widget, QtTabFocusReason) {issue #10155}
   else
     QWidget_setFocus(Widget);
 end;
diff --git a/lcl/interfaces/qt5/qtwidgets.pas b/lcl/interfaces/qt5/qtwidgets.pas
index 164f17aba7..8affca5193 100644
--- a/lcl/interfaces/qt5/qtwidgets.pas
+++ b/lcl/interfaces/qt5/qtwidgets.pas
@@ -5164,7 +5164,7 @@ end;
 procedure TQtWidget.setFocus;
 begin
   if getFocusPolicy <> QtNoFocus then
-    QWidget_setFocus(Widget, QtOtherFocusReason) {issue #10155}
+    QWidget_setFocus(Widget, QtTabFocusReason) {issue #10155}
   else
     QWidget_setFocus(Widget);
 end;
diff --git a/lcl/interfaces/qt6/qtwidgets.pas b/lcl/interfaces/qt6/qtwidgets.pas
index f151cd46e7..5aa1405c06 100644
--- a/lcl/interfaces/qt6/qtwidgets.pas
+++ b/lcl/interfaces/qt6/qtwidgets.pas
@@ -5168,7 +5168,7 @@ end;
 procedure TQtWidget.setFocus;
 begin
   if getFocusPolicy <> QtNoFocus then
-    QWidget_setFocus(Widget, QtOtherFocusReason) {issue #10155}
+    QWidget_setFocus(Widget, QtTabFocusReason) {issue #10155}
   else
     QWidget_setFocus(Widget);
 end;