请问怎么遍历菜单的子菜单啊？

Question

比如mainmenu是主菜单，怎么遍历它的子菜单呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
begin
   for i:=0 to MainMenu1.Items.Count - 1 do
   begin
     if MainMenu1.Items[i].Items.Count >0 then
     begin
       for j:=0 to MainMenu1.Items[i].Count -1 then
       begin
         showmessage(MainMenu1.Items[i].Items[j].Caption);
       end;
     end;
   end;
end;
这只是二级菜单，自己扩展吧。