diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index e793317808..379a859374 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -10726,7 +10726,7 @@ begin
 
   if (FDropList <> nil) and (Sender = FDropList.Widget) then
   begin
-    if QEvent_type(Event) = QEventFontChange then
+    if (Byte(QEvent_type(Event)) in [QEventKeyPress, QEventKeyRelease,QEventFontChange]) then
       Result := inherited EventFilter(Sender, Event);
     QEvent_ignore(Event);
     exit;