diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index b72ab03206..c998b25a40 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -3065,11 +3065,7 @@ var
   ModifierState: PtrInt;
 begin
   Result := False;
-  if not CanSendLCLMessage then
-    exit;
-
-  if (LCLObject <> nil) and
-    (not (csDesigning in LCLObject.ComponentState) and not getEnabled) then
+  if not CanSendLCLMessage or (LCLObject = nil) then
     exit;
 
   FillChar(Msg, SizeOf(Msg), #0);