我正在尝试迭代所有主菜单的项目.问题从子菜单项开始.像Menu.Items [i] .Items [j] .Items [k]这样的结构看起来不容易操作.那有什么方法吗？
我的目标是列出所有项目标题.
解决方法
您可以使用这样的递归函数
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;