本文整理自网络,侵删。
在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 测试字符串写入类: tstringwriter
Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar
更多相关阅读请进入《Delphi》频道 >>