delphi - 迭代主菜单的项目(包括子项目)

Question

我正在尝试迭代所有主菜单的项目。问题始于子菜单项。像 Menu.Items[i].Items[j].Items[k] 这样的结构看起来并不容易操作。有什么方法吗？

<小时/>

我的目标是列出所有项目标题。

Answer 1

您可以像这样使用递归函数

procedure TForm1.ProcessMenu(AMenu: TMenuItem);
var
  i: integer;
begin
  for i := 0 to AMenu.Count - 1 do
  begin
    Memo1.Lines.Add(AMenu[i].Caption);
    ProcessMenu(AMenu[i]);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ProcessMenu(MainMenu1.Items);
end;