无法销毁 Delphi 中动态创建的菜单项

Question

首先，是的，我浏览了整个网络，但似乎仍然无法破坏动态创建的菜单项。使用德尔福 XE。我因此创建了项目（为了练习 SubMenuName 的目的是'Test1'：

MenuItemCreated := TMenuItem.Create(PopupMenu1);
MenuItemCreated.Caption:= SubMenuCaption
MenuItemCreated.Hint := SubMenuHint;
MenuItemCreated.Name := SubMenuName;
MenuItemCreated.OnClick :=  SubMenuClick;
MenuItemCreated.AutoHotkeys := maManual;
MySubMenu.Add(MenuItemCreated);

使用创建的子菜单没有问题。 SubMenuClick 过程正常工作，并且我确定了正确的 subMenu 项目，因此那里没有问题。然后我要做的是一个应用程序注销，它应该使用此代码释放动态创建的子菜单（尽管我尝试了很多变体）：

  // Get rid of the menu items created
  While MySubMenu.Count > 0 do
  begin
    Itemtodelete := MySubMenu.Items[0];
    FreeandNil(ItemtoDelete);
  end;

我已经放入了 showmessage() 调试行，显示菜单项的组件名称是 freeandnil'd 并且它们是我所期望的，即。 'Test1' 和我创建的任何其他人。然后我重新登录到我的应用程序（它仍在运行，但我已注销）。然后，该软件会尝试重新创建具有相同名称的相同子菜单（因为就我的应用程序而言，没有任何改变，并且它们之前已被处理（假设））。我立即提出了异常：

错误：名为 Test1 的组件已存在

我完全不知道如何处理子菜单项，以便以后可以使用相同的名称重新创建它们。

非常感谢任何帮助。

谢谢， 知识库

Answer 1

你没有说，所以我不得不假设MySubMenu是PopupMenu1的一个MenuItem。如果不是，请澄清。

要从 MySubMenu 中删除项目以便稍后重新创建它们，调用 Clear 方法是最简单的：

procedure TForm5.Button2Click(Sender: TObject);
begin
  MySubMenu.Clear;
end;

删除 MySubMenu 的所有菜单项并释放它们的内存。

为了稍后重新创建项目，您不能使用 Delete() 或 Remove()，同时释放内存，因为它们不会释放项目的内存。这记录在帮助中：

http://docwiki.embarcadero.com/Libraries/XE7/en/Vcl.Menus.TMenuItem.Delete http://docwiki.embarcadero.com/Libraries/XE7/en/Vcl.Menus.TMenuItem.Remove

使用这些方法，您必须自己释放内存，然后再重新创建菜单项。但是，甚至不需要调用 Delete 或 Remove，您可以简单地释放项目：

procedure TForm5.Button2Click(Sender: TObject);
var
  mi: TMenuItem;
begin
  while MySubMenu.Count > 0 do
  begin
    mi := MySubMenu.Items[0];
    mi.Free;
  end;
end;

无需调用 FreeAndNil。 最后一个选项看起来与您的非常相似，您在重新创建菜单项时遇到了问题。除非使用 Delete() 或 Remove() 而不释放，否则我无法重现该错误。

Answer 2

由于弹出菜单拥有这些项目，您不能释放它。代替 FreeAndNil 使用 MySubMenu.Delete(0) 或更合适的是 MySubMenu.Items.Clear 而不是整个 While 例程。

在应用关闭时弹出菜单会清除它，除非您正在重建菜单，否则无需手动执行。