diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 0035a4432c..0e1b344076 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -5104,7 +5104,11 @@ function TQtRadioButton.EventFilter(Sender: QObjectH; Event: QEventH): Boolean;
 begin
   Result := inherited EventFilter(Sender, Event);
   if (LCLObject <> nil) and
-    (QEvent_type(Event) in [QEventMouseButtonPress, QEventMouseButtonRelease])
+    ((QEvent_type(Event) in [QEventMouseButtonPress, QEventMouseButtonRelease])
+    or
+    ((QEvent_type(Event) in [QEventKeyPress, QEventKeyRelease]) and
+     (QKeyEvent_key(QKeyEventH(Event)) = QtKey_Space) and
+     isChecked))
   then
     Result := not (LCLObject.Parent is TRadioGroup);
 end;