本文整理自网络，侵删。
在Treeview
查看更多关于 Treeview 的文章中完整显示MainMeun菜单中的内容
Delphi Treeview中显示Mainmenu菜单 Delphi专题 第1张" title="Delphi Treeview中显示Mainmenu菜单 Delphi专题 第1张-阿明工作室" style="box-sizing:border-box;max-width:100%;border-style:none;border-radius:4px;opacity:1;transform:scale(1);transition:all 0.3s ease-in-out 0s;perspective-origin:center top;display:block;height:auto;margin:10px auto;">
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;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
