定义:TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble)
看set的帮助:X <= Y is True just in case every member of X is a member of Y; Z >= W is equivalent to W <= Z. U = V is True just in case U and V contain exactly the same members; otherwise, U <> V is True.
也就是说set的>=操作其实就相当于in操作。
shift 是集合,不是这样做的。
if (Shift = [ssShift ]) then