diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 8862aff48a..1e70e6577d 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -339,6 +339,7 @@ type
   public
     function horizontalScrollBar: TQtScrollBar;
     function verticalScrollBar: TQtScrollBar;
+    procedure setFocusPolicy(const APolicy: QtFocusPolicy); override;
     procedure setHorizontalScrollBar(AScrollBar: TQtScrollBar);
     procedure setVerticalScrollBar(AScrollBar: TQtScrollBar);
     procedure setScrollStyle(AScrollStyle: TScrollStyle);
@@ -8979,6 +8980,11 @@ begin
   Result := FVScrollBar;
 end;
 
+procedure TQtAbstractScrollArea.setFocusPolicy(const APolicy: QtFocusPolicy);
+begin
+  QWidget_setFocusPolicy(Widget, APolicy);
+end;
+
 {------------------------------------------------------------------------------
   Function: TQtAbstractScrollArea.setHorizontalScrollbar
   Params:  None