说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

快速动态创建MenuItem-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
快速动态创建MenuItem-Delphi资料

在设计程序时

有时我们需要动态地创建菜单

通常我们使用以下的语句

PopupMenu1 := TPopupMenu.Create(Self);

Item := TMenuItem.Create(PopupMenu1);

Item.Caption := 'First Menu';

Item.OnClick := MenuItem1Click;

PopupMenu1.Items.Add(Item);

Item := TMenuItem.Create(PopupMenu1);

Item.Caption := 'Second Menu';

Item.OnClick := MenuItem2Click;

PopupMenu1.Items.Add(Item);

Item := TMenuItem.Create(PopupMenu1);

Item.Caption := 'Third Menu';

Item.OnClick := MenuItem3Click;

PopupMenu1.Items.Add(Item);

Item := TMenuItem.Create(PopupMenu1);

Item.Caption := '-';

PopupMenu1.Items.Add(Item);

Item := TMenuItem.Create(PopupMenu1);

Item.Caption := 'Fourth Menu';

Item.OnClick := MenuItem4Click;

PopupMenu1.Items.Add(Item);

其实我们可以使用一种更快的方法达到同样的功能

但使用很少的代码

那就是用NewLine和NewItem

看看下面的例子

是不是很简单?

PopupMenu1 := TPopupMenu.Create(Self);

with PopUpMenu1.Items do

begin

Add(NewItem('First Menu'

0

False

True

MenuItem1Click

0

'MenuItem1'));

Add(NewItem('Second Menu'

0

False

True

MenuItem2Click

0

'MenuItem2'));

Add(NewItem('Third Menu'

0

False

True

MenuItem3Click

0

'MenuItem3'));

Add(NewLine); // 增加一个分割棒

Add(NewItem('Fourth Menu'

0

False

True

MenuItem4Click

0

'MenuItem4'));

end;

谁都可以做开发者:微软推出Windows Phone Web工具 Mozilla正式发布Firefox 23 新增混合内容拦截 网络监控功能 14条建议,使你的IT职业生涯更上一层楼 依托微信的电商产品实践——SDCC 2013讲师潘凡专访 IBM将向Google、英伟达等授权Power架构技术 人脑研究将推动下一代网络革命?从大爆炸到大收缩 H3C携手F5将“空转”数据中心变为“分布式数据中心” W3C小组发布Web存储API推荐标准 开发者必备的6款源码搜索引擎 闪亮登场:开发者制作图形图表所需的11款JS工具包 来自两位技术大牛的博弈:HBase或将制霸NoSQL? 应用改变世界 2013英特尔®创新应用大赛火热开启 看13位CEO、创始人和高管如何提高工作效率 对首次购买智能手机用户而言,苹果吸引力并不大 Amazon Appstore面向Web应用开放 开发者可添加应用内付费功能 CSC收购成功转型的大数据初创公司InfoChimps 嘀嘀打车发展报告:成全球最大出租车调度平台 又摊上事儿了,Android的MasterKey再次出现bug 比特币挖矿必备工具 硬件性能大比拼 RDBMS vs. NoSQL:反派为什么会得以存活并发展壮大 帮助优化移动网站:谷歌发布新指南和PageSpeed Insights工具 增强Web可用性,你需要避免的七大设计错误 Python六大开源框架对比:Web2py略胜一筹 海外看中国:老外开发者间流传着的7件事儿 京东云峰:电商移动云平台背后的技术 初创公司DigitalOcean:55秒搭建一个云服务器 分布式系统事务原子性的非阻塞实现 IBM发布基于人脑特性设计的全新计算架构和编程语言 16款加速编码的HTML5在线工具 JFrog:开源项目的最大挑战是文档和许可 5个技巧打造完美用户体验,不到两年完成用户万到千万的增长 想找个unix高手,有没有啊? 那里有java的帮助手册下载?类似于萎软的msdn & 0xFFF0是什么意思 银行存钱手续费问题 计算机网络——熊桂喜 译 INPUT如何用图片作背景? 谁能给我贴一个 Regular 动态 mfc-dll的例子! 函数怎样调用? 在线的各位高手,请问哪里可以下到SYBASE11.9.2安装程序? EJB-QL问题,怎么使用模糊查询LIKE? 请进 为什么我装了声卡驱动程序后,只能听到声音,却说不了话? rh9中用户目录下的.profile为什么不起作用? 我是专学PL/SQL编程的,但是我觉得这个不像是真正意义的编程! 大家进来看看吧! VC6下如何向Oracle中添加和读取BLOB型的数据? 一个关于Delphi6和Delphi7的问题 请问怎么知道C# MSDN 里的每一个类,每一个方法是做什么用的? 问题挺多的?请不吝赐教!都是小问题! 输入光标的移动问题 菜鸟请教:请问如何打包成jar和jad文件? 关于Oracle存储大量二进制数据的问题, 有武汉的朋友么! 加我qq 7095682 看完《美丽人生》 帮帮我 一条菜虫问一个很菜的问题? 当数据库中没有图片时候该怎么办 关于时间掩码? 问题挺多的?请不吝赐教!都是小问题! Turbo c一定要安装在win98下吗 如何修改存储器参数,我的表会越来越大,原来用默认参数 看了下面的帖子后我自己的一点感受 我怎样定位我的涉及DataReader的表格? 如何制做半透明窗体,上面的控件也要能控制是否透明。 我要转行了,也许CODEING只是爱好,要把它做为职业,惨,,, 请问大家能不能推荐一本关于PHOTOSHOP 7.0 DREAMWEAVE MX 的书籍 一个简单的图像序列化存储 EDIT1.TEXT从用户接受的内容如何放进ARR 设计数据库时这样的情况应该如何处理 CFileFind::FindFile()的查找路径是怎么确定的? 很菜的问题 关于red hat9的小问题 不知是程序写多了还是失恋的缘故!我头上有一块地方不长头发了,医生说是斑秃!不知程序员里有斑秃的吗? 一IT美女的悲惨遭遇◎! .net2003的编译器如何为类添加消息映射啊???? JAVA的文本编辑,实现修改和排版 Jmai发送邮件问题? 高分求c++ test 我成功配置了一备用数据库,与主库连上了,可是主库坏了,我怎么打不开备用库啊? (SDK)怎样用SendMessage函数反选一个checkButton control(checked->unchecked)呢? 求救,为什么关于VB的帮助的事例看不到? 有拒绝爱情的吗?我还在念大学 六年级达标卷上第六单元阅读《师爱是什么》1.用“√”给加点字选择正确的读音2.用“/”划去横线上不恰当的词语3.这首诗的押运是__韵 试卷,阅读,爱的定格.好的,有赏. 阿凡提好经典的一句话,四个字的,我想知道 越南捕鸟蛛是虎纹捕鸟蛛吗? 越南捕鸟蛛和越南捕鸟王的区别?越南捕鸟蛛和越南捕鸟王是不同品种么,如果是怎么区分他们呢?最好自己说点什么 请问,海南捕鸟蛛和虎纹捕鸟蛛哪个更凶? 怎么吹用嘴口哨?我是四年级,解释简单点,不然我看不懂.谢谢大家!~ 雅思官网申请额外成绩单问题 求桥的由来? 雅思隔了5年,成绩在官网还查得到吗? 唯价是取是什么意思 26名涉嫌在加纳非法采金被扣中方人员匈牙利外长要求美国澄清监听传闻中国接任联合国安理会轮值主席国日俄同意就争议领土问题举行副部长级磋美国广播公司就歧视性言论采取措施特赦法案考验泰国政局王毅强调做好领事服务 打造海外民生工央视调查:在京韩国整容医生多无中国行新闻广电总局要求各地查处新闻敲诈有偿中国专家将参与禁化武组织核查叙利亚化印尼外长召见澳洲大使 要求就窃听报道为中东和平发展注入强大正能量凤凰国际智库发布国别报告,推进国别专美USPS快递资费猛涨 对中小企业华纽约华埠老字号珠江百货2月底结业 春韩国\"春运\"火车票开售 民众彻夜潘晓婷将自己PS成兔八哥葫芦娃 网友上海地铁半裸涂鸦系未成年人 监护人赔伊朗重生,油价暴跌至25美元,OPE警惕!男性不育竟是这里有问题?学会弯道超车,寒假学习涨分就靠它!七大性爱瞬间男女回味无穷,你可曾察觉冲霄战意dota之极限传说食心妖数据战兵仙医掌门大统神翼校园捉鬼高手极限武道追梦的山娃笑傲之独尊泰山三义庙旅游少陵碑亭旅游灵峰寺旅游奶龙神山旅游陈家沟旅游延庆水泉沟西水峪景区旅游镇虏关旅游宁园旅游蟹岛城市海景水上乐园旅游老北京胡同游旅游沙县城隍庙旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘