如何在Windows上通过编程添加菜单项分隔符？

Question

我在表单上有一个主菜单，我希望能够通过编程方式插入分隔符而不是在设计时插入。我查看了主菜单的上下文弹出菜单，列出了所有可用属性，但没有找到任何可以允许我插入分隔符的内容。谷歌并没有提供太多帮助。那么，在Windows上的Delphi中如何实现这一点呢？我正在使用Delphi 2010。

我只想做类似于以下的操作，但是AddSeparator命令不存在：

MainMenu1.Items[5].AddSeparator;

- ThN

---

请看这里 http://pastebin.com/gChvPgy6。 - TLama

这个可能会很方便 http://pastebin.com/ZedAbjTn... - TLama

Answer 1

创建一个新的菜单项，并将其标题设置为'-'。

var
  MenuItem: TMenuItem;
....
MenuItem := TMenuItem.Create(Menu); // Menu is the menu into which you are adding
MenuItem.Caption := '-';
Menu.Items.Add(MenuItem);

除了向菜单末尾添加内容的 Add，您还可以使用 Insert 将项目插入到菜单中间。

文档 上说：

将连字符（-）指定为菜单项的标题值，以指示该菜单项是分隔符。

- David Heffernan