Hallo,
ab TmainMenu (in Components enthalten) musst Du mit .Items weitersuchen.
Der folgende Code durchläuft rekursiv alle Items incl. Subitems
und baut sie In ein treeView ein.
Ich glaube das der Code ganz gut an Deine Anforderungen angepasst werden kann.
Delphi-Quellcode:
procedure XForm.GetMenuItems(aMenuItem: TMenuItem;aNode2: TTreeNode);
var z : Integer;
aItem : TMenuItem;
aNode : TTreeNode;
s : string;
begin
for z := 0 to aMenuItem.Count-1 do
begin
aItem := aMenuItem.Items[z];
aNode := ANode2;
s := aItem.Name;
aNode := TVFormTree.items.Addchild(aNode,s);
if aItem.Count > 0 then
GetMenuItems(aItem,aNode);//rekursiv
end;//Ende for z
end;