如何在Windows上以編程方式添加菜單項分隔符？

Question

我的窗體上有一個主菜單，我希望能夠以編程方式而不是在設計時在其中插入分隔符。 我瀏覽了主菜單的上下文彈出菜單，該菜單列出了所有可用的屬性，但沒有找到任何允許我插入分隔符的內容。 Google幫不上什么忙。 那么，該如何在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);

您可以使用Insert將該項目插入菜單的中間，而不是添加到菜單末尾的Add 。

該文件說：

指定連字符（-）作為菜單項的標題值，以指示菜單項是分隔符。