如何设置Delphi中的TAction.SecondaryShortCuts以适应特定语言的长尾快捷键？

本文共计292个文字，预计阅读时间需要2分钟。

我刚开始使用Delphi的TAction的SecondaryShortCuts特性。快捷方式由字符串定义，如F5或Shift+F5。目前的问题是，在我的Windows平台上，动作不会触发表单，因为键盘上的Shift键在德语中被认为是Umschalt，导致快捷键无法识别。

我刚刚使用了Delphi的TAction的SecondaryShortCuts-Feature.但快捷方式由字符串定义,如“F5”或“Shift F5”.现在的问题是：在我的德国 Windows上,动作不会触发,因为键“Shift”在德语中被称为“Umsch”！
这是否意味着SecondaryShortCuts-Property在设计时完全没用,因为没有人可以创建在国际上工作的应用程序？

我可以通过将VK_SHIFT转换为正确的名称来在运行时设置密钥.我通过GetKeyNameText尝试了它,但这没有用,因为它给了长形式“Umschalt”而不是“Umsch”.有人知道获取密钥名称的简短版本的功能吗？

您可以尝试这样做：从快捷方式生成快捷方式文本：

var s: TShortCut; begin s := ShortCut(Ord('A'), [ssShift]); Action1.SecondaryShortCuts.Add(ShortCutToText(s));

顺便说一下,这些值由以下常数确定.你翻译了那些吗？如果是这样,你需要吗？：

SmkcShift = 'Shift+'; SmkcCtrl = 'Ctrl+'; SmkcAlt = 'Alt+';