如何在Windows上以编程方式添加菜单项分隔符？

Question

我的表格上有一个主菜单，我希望能够以编程方式在设计时插入分隔符。我通过主菜单的上下文弹出菜单列出了所有可用的属性，但没有找到任何允许我插入分隔符的内容。谷歌没有多大的帮助。那么，如何在Windows上的Delphi中完成这项工作？我正在使用Delphi 2010。

我只是想做类似以下的事情，但AddSeparator命令不存在：

MainMenu1.Items[5].AddSeparator;

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将项目插入菜单中间。

documentation说：

  

指定连字符（ - ）作为菜单项的Caption值，以指示菜单项是分隔符。