TAction.SecondaryShortCuts是特定于语言的。如何正确设置？

Question

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

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

Answer 1

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

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

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

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