Delphi Treeview中显示Mainmenu菜单


本文整理自网络,侵删。

 

在Treeview

中完整显示MainMeun菜单中的内容

<a href=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 隐藏进程代码

Delphi 测试字符串写入类: tstringwriter

Delphi 判断尾串是否匹配,不分大小写

Delphi webbrowser 查找对话框

Delphi adoquery查询更改用户

Delphi xe10.2 firedac 三种连接

Delphi的窗体文件(dfm)文件中的汉字提取出来?

Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar

Delphi unigui http url直接下载文件

Delphi 数据库重置用户密码制作

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...