s := ShortCut(VK_NUMPAD0, []); CodeSite.Send('TformMain.FormCreate: ShortCutToText(s)', ShortCutToText(s)); EDIT3:我现在已经调试了Vcl.Menus:这个bug似乎在Vcl.Menus.ShortCutToText:虽然VK_ADD($6B)被GetSpecialName(ShortCut)正确翻译,但是VK_NUMPAD0($60)没有被GetSpecialName(ShortCut)翻...