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

  • 主题发起人 fly_ye0501
  • 开始时间
F

fly_ye0501

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi中如何遍历mainmenu然后显示在treeview中
 
X

xuzengliang81

Unregistered / Unconfirmed
GUEST, unregistred user!
先用递归,遍历所有节点后, 在用treenode 添加到treeview中。代码如下。beginLoadResourcesSYS(Menu.Items,nil)//menu就是你的mainmenu.end;procedure LoadResourcesSYS(TempItems: TMenuItem;rz: TRzGroup);//rz可以改成treeviewvar i: Integer
rzgitem: TRzGroupItem;//rzgitem可以改成TTreeNode. begin for i := 0 to TempItems.Count - 1 do begin with TempItems do begin if (Caption <> '-') and (Trim(Name) <> '') and (Visible) then begin if TempItems.Count > 0 then begin rz := TRzGroup.Create(RzGroupBar1)
rz.Name := Name
rz.Caption := Caption
RzGroupBar1.AddGroup(rz)
end else begin rzgitem := rz.Items.Add
rzgitem.Caption := Caption
rzgitem.OnClick := OnClick
end
end
if TempItems.Count > 0 then LoadResourcesSYS(TempItems,rz)
end
end;end;自己试一下,我的是可以的。
 
顶部