delphi - delphi中如何检测修饰键？

Question

如何检测按下了两个或三个组合键？

例如，当我按“Shift + Ctrl + F1”时，如何在文本框的“onKeyDown”事件中检测到它？

Answer 1

OnKeyDown 的 Shift 参数是一个集合。它描述了所有修饰键的状态。测试多个修饰键，如下所示:

if (Shift*[ssShift,ssAlt,ssCtrl]) = [ssShift,ssCtrl] then
  ....

* 从 Shift 中挑选出三个修饰键的状态。然后测试检查 Shift 和 Ctrl 是否按下，但 alt 未按下。

此类按键通常最好由使用操作的 ShortCut 属性的操作来处理。