TMenuItem wird nicht angezeigt unter componentes?

[Lannes]

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;