diff --git a/lcl/include/customlabel.inc b/lcl/include/customlabel.inc
index 4ac7ad0733..bbc37c0827 100644
--- a/lcl/include/customlabel.inc
+++ b/lcl/include/customlabel.inc
@@ -273,6 +273,7 @@ begin
   Result := False;
   if not FShowAccelChar then exit;
   if FFocusControl = nil then exit;
+  if KeyDataToShiftState(Message.KeyData) * [ssCtrl, ssAlt, ssShift] <> [ssAlt] then exit;
 
   if IsAccel(Message.CharCode, GetLabelText) and FFocusControl.CanFocus then
   begin