Delphi Treeview中显示Mainmenu菜单
功能
参考代码
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
procedure MainMenuToTreeView(MenuItem:TMenuItem;PTreeview:TTreeView;PTreeNode:TTreeNode); var i:Integer; newNode:TTreeNode; begin for i:=0 to MenuItem.Count-1 do begin newNode:=PTreeview.Items.AddChild(PTreeNode,MenuItem[i].Caption); MainMenuToTreeView(MenuItem[i],PTreeView,newNode); end; end; procedure TForm1.X1Click(Sender: TObject); begin Application.Terminate; end; procedure TForm1.FormCreate(Sender: TObject); begin MainMenuToTreeView(MainMenu1.Items,TreeView1,nil); end; |