Iteración de elementos del menú principal (incluidos los subelementos)

Question

Estoy tratando de iterar sobre todos los elementos del menú principal. El problema comienza en elementos de submenús. La estructura como Menú.Artículos [i] .Items [j] .Items [k] no parece fácil de operar. ¿Hay algún método para eso?

---

Mi objetivo es listar todos los artículos subtítulos.

Answer 1

Se puede utilizar una función recursiva al igual que

procedure TForm1.ProcessMenu(AMenu: TMenuItem); 
var 
    i: integer; 
begin 
    for i := 0 to AMenu.Count - 1 do 
    begin 
    Memo1.Lines.Add(AMenu[i].Caption); 
    ProcessMenu(AMenu[i]); 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    ProcessMenu(MainMenu1.Items); 
end; 

Answer 2

Usar este código:

USES Menus; 

TYPE TItemArr = ARRAY OF TMenuItem; 

FUNCTION AllItems(MainMenu : TMainMenu) : TItemArr; 
    VAR 
    I : Cardinal; 

    PROCEDURE Parse(VAR Result : TItemArr ; Item : TMenuItem); 
    VAR 
     I : Cardinal; 

    BEGIN 
     SetLength(Result,SUCC(LENGTH(Result))); 
     Result[HIGH(Result)]:=Item; 
     FOR I:=1 TO Item.Count DO Parse(Result,Item.Items[PRED(I)]) 
    END; 

    BEGIN 
    SetLength(Result,0); 
    FOR I:=1 TO MainMenu.Items.Count DO Parse(Result,MainMenu.Items[PRED(I)]) 
    END; 

utilizarlo como:

VAR MI : TMenuItem; 
FOR MI IN AllItems(MainMenu) DO ProcessMenuItem(MI);