delphi中如何遍历mainmenu然后显示在treeview中
发布网友
发布时间：2022-12-22 03:45
共1个回答
热心网友
时间：2024-11-19 00:49
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);
