diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 98130736de..0035a4432c 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -577,6 +577,7 @@ type
   public
     procedure AttachEvents; override;
     procedure DetachEvents; override;
+    function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
   end;
 
   { TQtGroupBox }
@@ -5098,6 +5099,16 @@ begin
   inherited DetachEvents;
 end;
 
+function TQtRadioButton.EventFilter(Sender: QObjectH; Event: QEventH): Boolean;
+  cdecl;
+begin
+  Result := inherited EventFilter(Sender, Event);
+  if (LCLObject <> nil) and
+    (QEvent_type(Event) in [QEventMouseButtonPress, QEventMouseButtonRelease])
+  then
+    Result := not (LCLObject.Parent is TRadioGroup);
+end;
+
 { TQtGroupBox }
 
 procedure TQtGroupBox.setLayoutThemeMargins(ALayout: QLayoutH; AWidget: QWidgetH);