会员登录 用户名： 密码： 登录 新会员注册 [找回密码]
当前位置：编程论坛 >> C/S程序开发专区 >> Delphi编程论坛 >> [求助]PopupMenu中动态创建二级目录
首页
  发表一个新主题  发表一个新投票  回复主题 您是本帖的第 240 个阅读者浏览上一篇主题  刷新本主题   树形显示贴子 浏览下一篇主题
 * 贴子主题：[求助]PopupMenu中动态创建二级目录 悬赏分50 [已结帖] 报告本帖给版主  显示可打印的版本  把本贴打包邮递  把本贴加入论坛收藏夹  发送本页面给朋友  把本贴加入IE收藏夹 
 xinmeng08 帅哥哟，离线，有人找我吗？
  
  
  头　衔：杭州电子科技大学
  等　级：论坛游侠
  积　分：2086
  专家分：1058
  提问帖：22/21
  回答帖：145
  总帖数：287
  经验值：490
  注　册：2007-5-26
给xinmeng08发送一个短消息 把xinmeng08加入好友 查看xinmeng08的个人资料 搜索xinmeng08在Delphi编程论坛的所有贴子  引用回复这个贴子 回复这个贴子楼主

发贴心情 [求助]PopupMenu中动态创建二级目录

我在popupmenu中动态创建多个二级目录    
但我点击二级目录时，取到的都是最后一个创建的名
        item := TMenuItem.Create(PopupMenuApp);
        item.Caption := '';
        item.onClick := SubPopupClick;
        T1.Add(item);

例如
procedure TfrmMain.SubPopupClick(Sender: TObject); //二级目录点击事件
var
  command: string;
begin
  command := item.Caption;
 showmessage(command);
end;
我创建了3个二级目录并且caption分别是1，2，3；而我不管点击哪个二级目录都是显示3，我要如何点击二级目录显示的是各自的caption呢,
不知道描述清楚了没，谢谢

编程的最高境界：大巧不工，重剑无锋
www.mcgzs.com---mc工作室

发帖：2008-8-29 17:12:00
  鲜花(0)  鸡蛋(0)
 xinmeng08 帅哥哟，离线，有人找我吗？
  
  
  头　衔：杭州电子科技大学
  等　级：论坛游侠
  积　分：2086
  专家分：1058
  提问帖：22/21
  回答帖：145
  总帖数：287
  经验值：490
  注　册：2007-5-26
给xinmeng08发送一个短消息 把xinmeng08加入好友 查看xinmeng08的个人资料 搜索xinmeng08在Delphi编程论坛的所有贴子  引用回复这个贴子 回复这个贴子第2楼

发贴心情 

我知道因为后面创建的覆盖上次创建的caption，不知道有什么好的方法来区别呢？


[此贴子已经被作者于2008-8-29 17:14:10编辑过]
编程的最高境界：大巧不工，重剑无锋
www.mcgzs.com---mc工作室

发帖：2008-8-29 17:13:00
 xinmeng08 帅哥哟，离线，有人找我吗？
  
  
  头　衔：杭州电子科技大学
  等　级：论坛游侠
  积　分：2086
  专家分：1058
  提问帖：22/21
  回答帖：145
  总帖数：287
  经验值：490
  注　册：2007-5-26
给xinmeng08发送一个短消息 把xinmeng08加入好友 查看xinmeng08的个人资料 搜索xinmeng08在Delphi编程论坛的所有贴子  引用回复这个贴子 回复这个贴子第3楼

发贴心情 

不好意思，研究了好久，终于解决了...
编程的最高境界：大巧不工，重剑无锋
www.mcgzs.com---mc工作室

发帖：2008-8-29 19:16:00

本主题贴数3，分页：[返回帖子列表] [上一页] [1] [下一页]

此主题已经结帖：

xinmeng08-50

 *快速回复：[求助]PopupMenu中动态创建二级目录  [ 回帖是一种美德 :) ]
会员账号 用户名：    还没注册?    密码：    忘记密码?
内容
  • HTML标签： 不可用
  • UBB标签： 可用
  • 贴图标签： 可用
  • 多媒体标签：可用
  • 表情字符转换：可用
  • 上传图片：不可用
  • 最多15KB
    		•
    点击表情图即可在帖子中加入相应的表情
                                
    邮件回复 显示签名   [Ctrl+Enter直接提交贴子]

    管理选项： 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告