| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2022/5/25 17:54:42 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 想通过程序，把combobox里面的内容给自动添加到popupmenu的items里面去。但是每次好像只能添加一个，大侠们能否帮忙看看是不是哪里错了,循环错了吗 procedure TForm3.importtree; var aint,bint:Integer; begin for aInt:=0 to form1.TreeView1.Items.Count-1 do if form1.TreeView1.Items[aInt].Text = 'Local' then begin for bInt:= 1 to form1.TreeView1.Items[aInt].Count -1 do Popupmenu1.items[20].items[aInt].caption:=(form1.TreeView1.Items[aInt].Item[bInt].Text); break; end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2022/5/25 18:47:02 | ||||
| 2楼： | 谢谢帮顶 ---------------------------------------------- - |
|||||
| 作者： |
|
2022/5/25 19:39:27 | ||||
| 3楼： | 你这只是改了一下popupmenu中item的capiton吧，没有添加吧。 ---------------------------------------------- 18114532@qq.com |
|||||
| 作者： |
|
2022/5/25 19:41:23 | ||||
| 4楼： | Popupmenu1.items[20].items[aInt].caption:= 可能是这个写的不对，aInt换成bInt试试。 ---------------------------------------------- 18114532@qq.com |
|||||
| 作者： |
|
2022/5/25 20:22:11 | ||||
| 5楼： | 问题是是每次只能改第一个，我就是想让treeview项下的所有条目都添加到popupmenu的items中。 ---------------------------------------------- - |
|||||
| 作者： |
|
2022/5/25 20:32:50 | ||||
| 6楼： | 你给出的这段代码根本没有添加子菜单的东西，这段代码只是更改了符合某个条件的菜单的 caption，何况，这段代码和你说得 combobox 没有一点关联 ---------------------------------------------- delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？ |
|||||
| 作者： |
|
2022/5/25 21:22:46 | ||||
| 7楼： | 不好意思，说错了。是把treeview项下的item添加到popupmenu里面去。 ---------------------------------------------- - |
|||||
| 作者： |
|
2022/5/25 22:58:43 | ||||
| 8楼： | 大概应该这样: for i := 0 to treeview.items.Count -1 do begin aItem := popupmenu.items.add; aItem.Caption := treeview.items[i].Text; aItem.ImageIndex := 0; aItem.Tag := i; // 方便识别 aItem.OnClick := self.我的点击事件; end; ---------------------------------------------- delphi|vue|golang hnysoft|hnyerp+mes+srm |
|||||
| 信息 |
| 登陆以后才能回复 |
