请问怎样遍历所有的菜单项啊?

Question

比如 文件-打开  编辑-增加
         -关闭      -删除我怎样遍历所有的这6个菜单项啊?

Answer 1

For i := 0 To ComponentCount - 1 Do
    Begin
      If Not (Components[i] Is TMenuItem) Then
      begin
        ....;
      end;
    end;  
这样行么？

Answer 2

Sorry：
If (Components[i] Is TMenuItem) Then

Answer 3

var
  i,j: Integer;
begin
  for i:=0 to MainMenu1.Items.Count-1 do
    for j:=0 to MainMenu1.Items[i].Count-1 do
    begin
      //
    end;
end;