功能
在Treeview中完整显示MainMeun菜单中的内容

参考代码
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;
相关下载
点击下载