将TObject转换为TMenuItem，检索标题添加&字符串

Question

下面我有一些非常简单的代码。我在多个onclick事件中使用这个函数来传递TMenuItems的标题。

procedure TForm1.BtnClick(Sender: TObject);
begin
 TestFrm.MyVar:= TMenuItem(Sender).Caption;
 InteractiveSchedulerFrm.ShowModal;
end;

然而，这样做的结果是，TestFrm.MyVar字段最终包含了一个原本不存在的符号，并且总是处于一个看似随机的位置。

我暂时修补了这个问题，替换了字符串中的所有符号，但我最好奇的是是什么导致符号被放在字符串中。

示例：

TMenuItem(发件人).Caption= 'TEST'；

TestFrm.MyVar = 'TE&ST‘或'&TEST’等

Answer 1

符号列表自动添加，因为您可能已经将菜单的AutoHotKeys属性设置为true (我认为这甚至是默认的)。

你有两个选择：

1. 将AutoHotkeys设置为假-或-
2. 在处理标题之前调用StripHotkey (从单元菜单)删除它

我可能会选择2，因为你永远不知道某个人(你的未来)是否会让AutoHotkeys回到现实。

Answer 2

TMenuItem标题中的符号用于指示菜单项的键盘快捷键。符号出现在快捷字符之前，并在某些情况下对字符进行下划线，以确保用户知道快捷方式。这种类型的字符称为加速器特性。

例如，带有&TEST标题的&TEST可以用ALT+T键来触发，而带有TE&ST标题的TMenuItem可以用ALT+S键来触发。

如果你想让一个符号出现在你的菜单项标题中，你需要用另一个符号(例如Bacon && Eggs)来转义它。下面是我找到的关于这个特性的第一个源代码的链接。