delphi – TAction.SecondaryShortCuts是特定于语言的.如何正确

发布时间：2020-12-15 09:18:16 所属栏目：大数据来源：网络整理

导读：我刚刚使用了Delphi的TAction的SecondaryShortCuts-Feature.但快捷方式由字符串定义,如“F5”或“Shift F5”.现在的问题是：在我的德国 Windows上,动作不会触发,因为键“Shift”在德语中被称为“Umsch”！这是否意味着SecondaryShortCuts-Property在设计时

我刚刚使用了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+';

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!