diff --git a/lcl/interfaces/qt5/qtwidgets.pas b/lcl/interfaces/qt5/qtwidgets.pas
index a962f24c89..144dd57bb9 100644
--- a/lcl/interfaces/qt5/qtwidgets.pas
+++ b/lcl/interfaces/qt5/qtwidgets.pas
@@ -5517,7 +5517,7 @@ end;
 
 function TQtWidget.ProcessArrowKeys: Boolean;
 begin
-  Result := False;
+  Result := Assigned(LCLObject) and (csDesigning in LCLObject.ComponentState);
 end;
 
 class procedure TQtWidget.removeProperty(AObject: QObjectH; APropName: PAnsiChar);
diff --git a/lcl/interfaces/qt6/qtwidgets.pas b/lcl/interfaces/qt6/qtwidgets.pas
index 505220162d..7b419b2f27 100644
--- a/lcl/interfaces/qt6/qtwidgets.pas
+++ b/lcl/interfaces/qt6/qtwidgets.pas
@@ -5521,7 +5521,7 @@ end;
 
 function TQtWidget.ProcessArrowKeys: Boolean;
 begin
-  Result := False;
+  Result := Assigned(LCLObject) and (csDesigning in LCLObject.ComponentState);
 end;
 
 class procedure TQtWidget.removeProperty(AObject: QObjectH; APropName: PAnsiChar);