delphi – 迭代主菜单的项目(包括子项)
发布时间:2020-12-15 04:10:00 所属栏目:大数据 来源:网络整理
导读:我正在尝试迭代所有主菜单的项目.问题从子菜单项开始.像Menu.Items [i] .Items [j] .Items [k]这样的结构看起来不容易操作.那有什么方法吗? 我的目标是列出所有项目标题. 解决方法 您可以使用这样的递归函数 procedure TForm1.ProcessMenu(AMenu: TMenuItem
我正在尝试迭代所有主菜单的项目.问题从子菜单项开始.像Menu.Items [i] .Items [j] .Items [k]这样的结构看起来不容易操作.那有什么方法吗?
我的目标是列出所有项目标题. 解决方法
您可以使用这样的递归函数
procedure TForm1.ProcessMenu(AMenu: TMenuItem); var i: integer; begin for i := 0 to AMenu.Count - 1 do begin Memo1.Lines.Add(AMenu[i].Caption); ProcessMenu(AMenu[i]); end; end; procedure TForm1.Button1Click(Sender: TObject); begin ProcessMenu(MainMenu1.Items); end; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |