Amigo aconselho você trabalhar com recursividade, pois o menu tem uma coleção de submenus e os submenus possui uma coleção de submenus e assim por diante.
Fábio Lima de Oliveira Analista de Sistema Grupo Coan Alimentos & Serviços E-mail: fabio.l...@grupocoan.com.br Site: http://www.grupocoan.com.br <http://www.grupocoan.com.br/> De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de vin_monteiro2003 Enviada em: segunda-feira, 26 de janeiro de 2009 09:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Ler Tag do Menu e SubMenus.... Olá José Henrique... Obrigado por ter respondido... Mas é esse laço que eu não consegui fazer no final de semana.... Tem alguma dica de qual propriedade devo trabalhar ? Obrigado --- Em delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> , José Henrique (Zote) <z...@...> escreveu > > Pra cada menu, você deverá listar os submenus dele. > > > > -- > > José Henrique (Zote) > > Analista de TI > > Bludata Software > > > > De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi- b...@yahoogrupos.com.br <mailto:br%40yahoogrupos.com.br> ] Em > nome de vin_monteiro2003 > Enviada em: segunda-feira, 26 de janeiro de 2009 09:22 > Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Assunto: [delphi-br] Ler Tag do Menu e SubMenus.... > > > > Delphi 7 > > Bom dia, > Estou pensando em colocar o controle da minha aplicação no tag do > menu... > > Só que não consigo fazer a leitura dos tags que estão nos submenus... > > for i:= 0 to _mnuPrincipal.items.Count - 1 do // ele só me traz a > quantidade de items do menu raiz > > Como poderia ler também os tags que estão nos submenus, sabendo que > estes submenus podem também ter submenus... exemplo > > Arquivo tag -> 1 > Cadastros tag ->4 > Clientes ->8 > Clientes -> 9 > Autorizados -> 10 > > Obrigado por toda a ajuda... > > > > > > [As partes desta mensagem que não continham texto foram removidas] > [As partes desta mensagem que não continham texto foram removidas]
