DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: wanggui999
今日帖子: 34
在线用户: 10
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 zhouying (zy) ★☆☆☆☆ -
盒子活跃会员
2022/5/25 17:54:42
标题:
关于popupmenu和combobox内容的结合 浏览:280
加入我的收藏
楼主: 想通过程序,把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;
----------------------------------------------
-
作者:
男 tuhemm (刀锋土禾) ▲△△△△ -
禁用账号
2022/5/25 18:46:24
1楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布无用信息,禁用帐号!
作者:
男 zhouying (zy) ★☆☆☆☆ -
盒子活跃会员
2022/5/25 18:47:02
2楼: 谢谢帮顶
----------------------------------------------
-
作者:
男 abcjingtong (jingtong) ★☆☆☆☆ -
注册会员
2022/5/25 19:39:27
3楼: 你这只是改了一下popupmenu中item的capiton吧,没有添加吧。
----------------------------------------------
18114532@qq.com
作者:
男 abcjingtong (jingtong) ★☆☆☆☆ -
注册会员
2022/5/25 19:41:23
4楼: Popupmenu1.items[20].items[aInt].caption:= 可能是这个写的不对,aInt换成bInt试试。
----------------------------------------------
18114532@qq.com
作者:
男 zhouying (zy) ★☆☆☆☆ -
盒子活跃会员
2022/5/25 20:22:11
5楼: 问题是是每次只能改第一个,我就是想让treeview项下的所有条目都添加到popupmenu的items中。
----------------------------------------------
-
作者:
男 sail2000 (小帆工作室) ★☆☆☆☆ -
盒子活跃会员
2022/5/25 20:32:50
6楼: 你给出的这段代码根本没有添加子菜单的东西,这段代码只是更改了符合某个条件的菜单的 caption,何况,这段代码和你说得 combobox 没有一点关联
----------------------------------------------
delphi 是兴趣,和工作无关,即使它倒闭。
又不靠它 delphi 吃饭,怕甚?
作者:
男 zhouying (zy) ★☆☆☆☆ -
盒子活跃会员
2022/5/25 21:22:46
7楼: 不好意思,说错了。是把treeview项下的item添加到popupmenu里面去。
----------------------------------------------
-
作者:
男 doersoft (XMG-ZY) ★☆☆☆☆ -
普通会员
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 flutter&vue|golang kyaim|xylnx.com
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行85.9375毫秒 RSS