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

快速动态创建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;

专访POWER 8编程挑战赛选手吴亮:集众家之长, 激发算法性能极限 微信沟通接口上线,开启移动应用与公众号的连接 【特惠最后1天】参加深圳微信开发者大会赠书及全套讲师讲义(附大会最新日程) 编码运行两不误!KZPlayground,Objective-C中的Playgrounds 专访PopCap:AR是数字与物质世界的调和剂 【多图】Github编程语言分布统计:JavaScript称霸 【最具价值CTO评选秀】途家美女CTO杨孟彤:不创业会后悔 2014腾讯WE大会:开启未来的五大科技发展趋势 TIOBE 2014年11月编程语言排行榜:R受大数据影响跃至12位 深圳微信开发者大会全部议程出炉 最后仅剩30个参会名额 智能硬件:一半海水,一半火焰 聚焦SDN、NFV、云安全基础架构等技术热点 2014云安全联盟高峰论坛即将召开 富Web应用开发的七大原则 应用原型设计毫无压力!开源Sketch插件管理器Sketch Toolbox 【MDCC专访】友盟副总裁焦岳:从36万款App,看今年的热门领域 一切只为经典 微信开发者大会前瞻(附议程) 从手势识别到增强现实,开发实感应用该了解的技术细节 福利来了,爱拍原创免费为iOS版手游制作宣传视频 【工具推荐】Zrender——轻量级Canvas类库,让绘图大不同! 基于Docker和CoreOS的开源PaaS平台——Deis v1.0正式发布! 微软宣布.NET开发环境开源 支持三大操作系统 爆发吧,诺基亚!前员工开发物联网新设备 详解Visual Studio Emulator for Android,微软的Mobile First! HPC China 2014完美落幕,AMD Firepro荣获好评! 揭秘微软的Container技术之一Drawbridge AWS副总裁谈数据中心网络打造 【最具价值CTO评选秀】出门问问CTO雷欣:从技术极客到核心管理的秘密 《近匠》APICloud:“云”+“端”一体的移动API提供者 Oculus移动SDK发布!John Carmack操刀、集成Unity 4.5 11月15日深圳见!深圳微信开发者大会公布全部议程 参与2014中国大数据行业大调查 BDTC门票等你拿 and 和 or 有什么不同??? 关于oracle 配置的问题 Oracle数据库实例和数据文件的问题求助 调查:各位用Lotus开发的时候,对源码如何做版本控制的?效果如何? 请问各位高手现在业界对工作流与电子工单有没有统一的标准? 动态生成STATIC 文本框,把里面的文字都加上下划线,怎么做? 有什么好的类似于QQ的局域网通讯程序???可支持WIN98及WINXP间的通讯!!! 我快晕了,急救! 低手勿入,高手请进,剧难??? 一个程序调试中产生的问题 -------数据接收和发送模式的问题!(非资深程序员勿入)100分只给答的最好的 求救!关于坐标系转换问题 现在很多邮件服务器要身份验证,ASP.NET(C#)的SMTPMAIL类有设置身份验证和密码的属性吗? 怎么在基于对话框的程序中加入一幅bmp作为底图? 刚学java,碰到一问题,请 有空进来看看 showMessageDialog的使用问题 disable mainmenu控件的某个subitem怎样实现 哈哈,需要短信网关IP地址及其源代码的快来顶一下。 sybase12.0安装时的问题??? 怎么样能用asp编写使得IE打开pdf文件?在查询后怎样还能在查询的输入框里面保留查询的输入? 如何使用TreeView进行分级管理 触发器的效率问题! 寻求解决方案 组件刷新问题,UP有分 请问 虚拟目录 和 WEB站点 有什么区别? DBEXPRESS的问题!很简单 请问那里有支持中文好的jsp开发的webmail下载?很急!谢谢大家了! 我如何在程序中切换输入法 怎么把一个COleDateTime类型的变量转成time_t类型(long型)变量? 结构成员这样定义 WCHAR bString[0]; 长度为0有意义吗? 关于DLL中的函数 如何动态分配指针数组? 哪里有关于delphi多线程资料下载? 急!!!SQL2000数据库IMAGE图象数据的存取?????? 这个存储过程怎么写? D7中的这个怎不见了啊-----急急 为什么只能传递两个汉字?有解决的办法吗? 关于DLL文件中的函数 lotus菜鸟请求急就!!!!!!!! 如何动态分配指针数组? 怎样实现点击按钮,将光标所在行的某列参数传到另一个form,显示出另一个表的某条相关记录? 这句话到底有什么含义??? T-SQL连接字符串的操作符号是? 问一个送分问题。 如何得到驱动器信息? (腊肉)欢迎讨论:简体、繁体同界面显示问题 請問在水晶報表里怎樣實現這樣的設計 谁有校友录? 欢迎讨论:简体、繁体同界面显示问题 用VB写了Lable控件,但不知如何把背景是否透明的属性加入 这堆警告是什么意思? 动植物体内是否既有RNA还有DNA 急问吡啶和顺丁烯二酸酐能反应吗?请问顺丁烯二酸酐和吡啶能反应吗? 为什么单缝衍射试验中缝越窄条纹数越多?(请给出数学推导,) 嘴里的棉花糖也融化了 是哪个歌里的天也.了...口中的棉花糖也融化了 .妇昵毫概 在三氯化铝存在下,吡啶与乙酸酐作用生成的产物主要是什么? 泊松亮斑和单缝衍射1.这个亮斑为什么可以说明光有波动性?为什么它是衍射形成的呢?(书上讲的实在没理解)2.单色光单缝衍射时,中间条纹最亮最宽没错,为什么两侧条纹会变窄?3.有关单缝 药厂检验员主要是做什么工作?主要是做医药的 实物证据最能够证明的认定是()A存在性B完整性C所有权D计估 关于单缝衍射的疑问单缝衍射可以用传统学说(阵列波面法)解释,但是我有一个疑问,就是波是在不断向前运动的,这一瞬间波峰恰到达屏,下一瞬间就是波的其它部分甚至波谷到达屏,那么它 药厂QC检验员主要操作的仪器有哪些呢 某同学用加热氯酸钾和二氧化锰的方式来制取氧气,加热前他称得混合物的质量为15g,完全反应后,称得剩余...某同学用加热氯酸钾和二氧化锰的方式来制取氧气,加热前他称得混合物的质量为15g 什么是静压水池 格兰仕光波炉其它各方面都正常,就不能加热!谁有解决方法? 实验室加热氯酸钾和二氧化锰的混合物共15g制取氧气,待反应完后,冷却称得固体物质10.2g,计算:(1)制得氧气多少克?(2)原混合物中含氯酸钾多少克?(结果精确到0.01) 如果有一只苍蝇落入你的水杯中,你会怎么办? 新买的格兰仕光波炉不加热怎么办? 为什么氮气中两个氮原子成键是成3个共用电子对? 静压水池向下供水400米处水压是多少 某浓度的稀硫酸与足量的锌粒反应,在一定条件下,为了减缓反应进行的速率,又要保证生成氢气的量不变要加什么?话说书上答案给的是醋酸钠,是因为醋酸钠水解产生醋酸,使氢离子减少.但水解 共用电子对的形成共用电子对是因为一个原子容易失去电子,另一个容易得到电子(出自百度百科),那么为什么不会形成两个离子而形成了共用电子对呢?两个相同的元素也会形成共用电子对, 最不利配水点与贮水池最低工作水位的静压差怎么算谢谢 化妆品微生物基础知识 在建筑图中有一个房间 叫静压室,它是做什么用的房间? 杂交育种的看图一就行了经过a、b、c过程,后代中矮杆抗病植株中不能稳定遗传的占2/3这句话是否正确我算来算去都不是.好的再加分,我关于F2代的计算结果和你一样但F3的和你不一样,你看看 化妆品微生物欧盟标准求助,化妆品中微生物检测,欧盟与美国的标准? 将15g氯酸钾,二氧化锰混合物加热至无氧气放出 固体质量为10.2g 原混合物中氯酸钾质量分数是多少 高一生物 杂交育种至少要4年?为什么?怎样算一年?解释下/ 如何控制化妆品微生物超标 怎么在EXECL表格中就算几个数据的总和?l例如.就算中间10个数的总和SB请绕开 培育矮秆抗锈病小麦新品种的方法如下:纯种的高秆(D)抗锈病(T)×纯种的矮秆(d)易染锈病选出符合要求的品种.下列有关该育种方法的叙述中,正确的是 [D ] A.过程3为单倍体育种B.过程 如何净化浑浊的自来水,自来水浑浊(水锈)无沉淀.净化后营养会流失么. 怎么在EXECL表格中就算几个数据的总和?l例如.就算中间10个数的总和 求一段数据的总和 死细胞的细胞膜的透过性死细胞的细胞膜是全透性还是失去透过性? 如图为一种椭球体磁铁,该磁铁磁性最强的部位在哪里呢? 测量结果的表示方法 死细胞细胞膜具有全透性的原因没有了蛋白质运输,为什么反而能通过呢 右图为一种椭球体磁铁,该磁铁磁性最强的部位在哪里 线桥法,如果碰到有共用电子对的物质该怎么办? 细胞膜皱缩会使细胞死亡吗?会丧失半透膜的性质吗? 微生物源有毒物质及其毒性效应是什么? 是否存在四对共用电子对的物质?大家知道氮N≡N 有三对共用电子对,所以性质很稳定,那是否存在四对的那? 单缝衍射问题平行单色光垂直入射于单缝,得到一组夫琅禾费衍射条纹,若将缝宽扩大3/5倍,则原第二级明纹的位置变为第_级_答案是第四条暗纹.但最后得到k=16/5 不应该是第三条明纹吗 是不是所有的有毒物质都是微生物构成的? [普通化学]下列全部用共用电子对成健的物质是A>NaOHB>NH4Clc>BF5d>NaCl 求所有有机基本结构的名称,最好有化学结构式.如:呋喃、吲哚、吡啶、哌啶……等等等等,要全面. 微生物如何除去水中有毒物质 单线桥法,如果碰到有共用电子对的物质该怎么办? 嘌呤的标准值是多少? 有毒物质( )叫做食物链的()作用,产生原因有毒物质1()2() 共用三个电子对且形成气态物质是N2吗 把execl里面的所有数字 统一乘以一个数?如图 0、如图所示电路出现下列一处故障后,请将会出现的电路现象填写在表格中:(灯填“不亮”、“变亮”或“变暗”,表填“无示数”、“示数变大”或“示数变小”) 一种离子能在细胞膜中运输取决于 手机电子证书是什么意思 高等动植物细胞内都含有的物质是 A血红蛋白 B淀粉、RNA C酶、DNA D纤维素、激素 自来水浑浊里面含有什么物质啊,喝了有什么危害? 国外科学家是怎么证明神的存在的? 激素可以是RNA吗 什么叫做一对共用电子对 怎么投水自尽 澳大利亚警方追捕偷车贼 造成路过少年以色列军方与武装分子在加沙地带交火 日举办美魔女大赛 60岁佳丽身材如少Facebook首次承认传闻:年轻人塞拉利昂外长将访华广州警方处理病人家属殴打医生事件 3马来西亚移民局前总监被判处贪污罪名成巴西副总统将访华海外赴澳工作人员升至173万人 威胁浙江将出台“社会组织建设”地方标准浙江汽车消费增幅回升 金银珠宝类商品中央巡视组已进驻广东等7地区单位 联上海近八旬英式老建筑启动平移 移38江苏将建150万亩永久性蔬菜基地南京地铁或将下发“禁食令”地铁禁食将万圣节郭美美杨贵妃妆扮吓呆网友 称最南京市农委加大监测 确保市民吃上放心“农家乐”食品安全存隐患 南京农委表中国部分军事设施现安全隐患 影响武器女子因口角棍击刀捅杀死丈夫 分尸蒸煮10月全国平均气温较常年偏高 呈现“广州恒大vs阿赫利 美女球迷神似章子福州企业制彩绘玻璃瓶成国宾礼 盼打造德国社民党表决同意与联盟党联合执政客场龙遭曼城主场最低消费 8战35球专家称脑中风成“国民杀手” 近年来白画家刘墨:用价格看绘画是“土豪”心态刘延东出席第6届“中泰一家亲”音乐歌诺贝尔文学奖得主首秀毛笔字 称对中国四川倡导无偿献血 厅长带头166名公嫦娥倾角不超过15度 玉兔就能安然释淀粉当配料 上网卖假药 公安机关打掉月球车五星红旗在“车头”方向内格雷多破门成阿KUN最佳拍档 竟废欧美同学会举办\"中东欧好声音\"联海空邮齐发力 福建加快构建两岸直接往财经专家三亚谈中国经济“新”与“变”陈熙荣:中国足球振兴首先需要培养一批“女詹姆斯”灌篮惊呆球迷 WCBA浙全国高校广告论坛今日在广西艺术学院举航天科技展览到南宁 市民零距离过足航第七届阿联酋“扎法尔骆驼节”开幕
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘