Quantidade de Itens em um MainMenu

Question

como fa�o para descobrir quantos itens de menus e subitens de menu h� em um componente mainmenu?Obrigado...

Ariovaldo · Answer

Olha esta Procedure me passaram e ela consegue ler todos os menus coloca um contador e v� se te atende

Function ListarMenu(Menu:TMainMenu; Tag_Numero:Integer):TStrings;
var
x, y:integer;
Lista:TStringList;
begin
Lista:=TStringLIst.Create;
For x:= 0 to Menu.Items.Count -1 do
Begin
Lista.Add(Menu.Items[x].Caption);
For y:= 0 to Menu.Items[x].Count -1 do
if Menu.Items[x].Items[y].Tag = Tag_Numero then
Lista.Add(Menu.Items[x].Items[y].Caption);
LIsta.add(��);
end;
result:=Lista;
end;

Para utilizar, faz assim

Memo1.lines:=ListarMenu(MainMenu1, 0);

Massuda · Answer

Para saber o total de itens em um TMainMenu, incluindo os submenus:

function TotalDeItensDoMenu(Menu: TMainMenu): Integer;

  function ContaItens(MenuItem: TMenuItem): Integer;
  var
    I: Integer;
  begin
    Result := MenuItem.Count;
    for I := 0 to MenuItem.Count-1 do begin
      Result := Result + ContaItens(MenuItem.Items[I]);
    end;
  end;

begin
  Result := ContaItens(Menu.Items);
end;

F�rum Quantidade de Itens em um MainMenu #262749