vc poderi fazer assim...
var
x , y : integer ;
for x:= 0 to _mnuPrincipal.items.Count - 1 do
for y := 0 to mnuPrincipal.item[x].count -1 do
ShowMessage ( inttostr( mnuPrincipal.item[x].items[y].tag ) )
Acho que isso resolve não tenho certeza.. rsrs... Wesley
From: Fabio Lima
Sent: Monday, January 26, 2009 12:14 PM
To: delphi-br@yahoogrupos.com.br
Subject: RES: RES: [delphi-br] Ler Tag do Menu e SubMenus....
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]
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3800 (20090126) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
