Quantidade de Itens em um MainMenu

Delphi

20/12/2004

como faço para descobrir quantos itens de menus e subitens de menu há em um componente mainmenu?


Obrigado


Jubrovolski

Jubrovolski

Curtidas 0

Respostas

Ariovaldo

Ariovaldo

20/12/2004

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);


GOSTEI 0
Massuda

Massuda

20/12/2004

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;



GOSTEI 0
POSTAR