如何在delphi中遍歷主菜單並在treeview中顯示

過程菜單樹(aMenuItem:TMenuItem；aTreeview:TTreeView；aTreeNode:TTreeNode)；

定義變量

I:整數；

new node:TTreeNode；

Begin //將菜單復制到樹節點中

對於i:=0到aMenuItem。Count-1 do

開始

newNode:=aTreeview。Items.AddChild(aTreeNode，aMenuItem[i].字幕)；

MenuToTree(aMenuItem[i]，aTreeView，new node)；

結束；

結束；

//下面是壹個call語句，將MainNemu1的所有菜單復制到Treeview1。

MenuToTree(MainNemu1。Items，TreeView1，nil)；