Question

delphi中如何遍历mainmenu然后显示在treeview中

我用这段代码只能找到主菜单项，下拉菜单里的都没进去
for i:=0 to Mainmenu1.items.count-1 do
begin
treeview1.items.add(nil,Mainmenu1.items[i].caption);
end;

我想把所有的菜单项都加进去，怎么搞定？谢谢！
如mainmenu中是
aa bb cc dd
a1 b1 c1
a2 b2
-
a3

treeview中为

-aa
a1
a2
-
a3
+bb
cc
dd

Answer 1

procedure MenuToTree(aMenuItem:TMenuItem;aTreeview:TTreeView;aTreeNode:TTreeNode);
var
i:Integer;
newNode:TTreeNode;
begin //将菜单复制到树节点中
for i:=0 to aMenuItem.Count-1 do
begin
newNode:=aTreeview.Items.AddChild(aTreeNode,aMenuItem[i].Caption);
MenuToTree(aMenuItem[i],aTreeView,newNode);
end;
end;

//下面是调用语句,将MainNemu1的所有菜单复制到Treeview1中
MenuToTree(MainNemu1.Items,TreeView1,nil);