Question

I’m trying to iterate over all main menu’s items. Problem starts at sub menus items. Structure like Menu.Items[i].Items[j].Items[k] doesnt look easy to operate on. Is there any method for that?

---

My goal is to list all the items captions.

Answer 1

You can use a recursive function like so

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;