delphi - 如何将 TAction 的快捷键设置为 Ctrl + Numpad 0？

Question

我已经尝试过这个:

actZoomReset.ShortCut := TextToShortCut('Ctrl+Num 0');

但这没有任何作用(ShortCut = 0)。

编辑:

如果我尝试在 IDE (Ctrl+Num 0) 中直接在 ShortCut 属性中设置值，则会收到错误:“属性值无效”。如果我双击快捷方式属性，然后按“Ctrl”和“Numkey 0”，则在热键编辑中显示“Ctrl+Num 0”，当我按 Enter 时，在快捷方式中显示“Ctrl+Ins”字段。

实际上

actZoomReset.ShortCut := TextToShortCut('Ctrl+Ins');

会起作用的。然后我的问题是，这是否适用于其他键盘，或者这是我自己的键盘的怪癖？我使用的是罗技 G213。小键盘 0 下方有“Ins”。

我在 Windows 10 上使用 Delphi 10.2

Answer 1

最简单的方法是在设计时使用对象检查器设置操作的快捷方式:

但是如果您需要以编程方式设置此属性，则可以这样做

actZoomReset.ShortCut := ShortCut(VK_NUMPAD0, [ssCtrl])

(通常，无需在运行时调整操作的非状态属性。状态属性为 Visible、Enabled 和 Checked.)

关于您的编辑:

听起来您好像不小心关闭了 NUM LOCK。当 NUM LOCK 为 ON(默认)时，0/INS 键表示 0。当 NU​​M LOCK 关闭时，表示 INS。

要打开 NUM LOCK，请按红色圆圈中的键。当 NUM LOCK 打开时，绿色圆圈中的 LED 将亮起。