Pegar os Items de Um MainMenu

Delphi

08/08/2003

Gostaria de saber como faço pra pegar todos os TMenuItems de um TMainMenu.

Queria fazer uma rotina pra faze-lo mas num sei como se alguem puder me ajudar, fico muito agradecido!


Rodrigo Lopez

Rodrigo Lopez

Curtidas 0

Respostas

Afarias

Afarias

08/08/2003

exemplo:

var
I: Integer;
Menu: TMenuItem;
begin

with MainMenu1 do
for I := 0 to Itens.Count-1 do
begin
Menu := Itens[I];
Memo1.Lines.Add(Menu.Caption);
end;

end;


T+


GOSTEI 0
Rodrigo Lopez

Rodrigo Lopez

08/08/2003

até funciona, mas somente para pegar os itens, mas e os items de dentro dos itens, ou seja, os subitems??

Desse jeito num dá!


GOSTEI 0
POSTAR