Fórum Como pegar os itens de menu, e jogar num ListBox? #320249

 for i := 0 to FrmPrincipal.MainMenu1.Items.Count - 1 do
  ListBox1.Items.Add(FrmPrincipal.MainMenu1.Items[i].Caption);

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Integer;
begin
 for i:=0 to MainMenu1.Items.Count-1 do
    begin
      Listbox1.Items.Add(´Item nome = ´+MainMenu1.Items[i].Caption);
      for j:=0 to MainMenu1.Items[i].Count-1 do
       Listbox1.Items.Add(´   SubItemsnome = ´+MainMenu1.Items[i].Items[j].Caption);
    end;
end;