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+';