delphi - 如何禁用 TAction.Shortcut 或 TMenuItem.Shortcut？

Question

我正在开发一个Word插件，不知何故，TAction.ShortCut中定义的快捷方式总是被触发多次，这对我来说很棘手，很难解决，所以我求助于TForm.OnKeyDown事件并清除了所有TAction.ShortCut 属性，这种方法效果很好，只是快捷方式没有显示在相应的菜单项上，但我希望它们显示在那些菜单项上。

所以我想到了这个想法:设置TMenuItem.Shortcut的值，以便程序可以向最终用户显示快捷方式提示，并且不允许VCL处理这些快捷方式，而是在TForm.OnKeyDown中处理它们。所以我的问题是如何禁用 TAction.Shortcut 或 TMenuItem.Shortcut？先感谢您。

Answer 1

首先，您在 TAction 和 TMenuItem 上都有一个 Enabled 属性。只需将其设置为False即可。

接下来，您的事件被多次触发的可能原因之一是您可能正在使用 Application.ProcessMessages；或者至少您正在使用的一个写得不好的组件正在这样做。人们应该非常谨慎地使用这一 Delphi 功能，因为它可能会导致“可重入”代码(无意的递归)。