var
  i:Integer;
begin
  for i:=0 to MainMenu1.Items.Count-1 do
  begin
    ComboBox1.Items.Add(MainMenu1.Items[i].Caption);
  end;
end;

解决方案 »

  1.   

    haoco(Lot) 这 家伙的方法不可靠!!!不过我也找不到现成的代码给你!!!实在抱歉:p
      

  2.   

    我想得到的不仅是主菜单的名称,还有他的下拉菜单,但是这种方法只能得到几个标题菜单,不能得到他们的下拉菜单?
    var
      i:Integer;
    begin
      for i:=0 to MainMenu1.Items.Count-1 do
      begin
        ComboBox1.Items.Add(MainMenu1.Items[i].Caption);
      end;
    end;
      

  3.   

    var i,j:integer;
    begin
      for i:=0 to MainMenu1.Items.Count-1 do
      begin
        listbox1.Items.Add(MainMenu1.Items[i].Caption);
        for j:=0 to MainMenu1.Items[i].Count-1 do
          ListBox1.Items.Add(MainMenu1.Items[i].Items[j].Caption);
      end;
    end;