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

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

微软2014,有你期待的吗? 映趣科技发布inWatch Z/inWatch X 后者采用全彩透明柔性屏 程序员没有天才:暴风影音首席架构师鲍金龙访谈 开放式创新改变世界——OpenStack生态系统将重新洗牌 Java 8最终发布日期敲定,即使有bug也要发布 Meteor PK Django,谁更适合开发实时Web应用? 学编程就像选家具:去宜家还是从种树开始? 前车之鉴 十二个年度最差设计网站汇集 冷暖交替,2014年编程兴衰趋势预测 诺基亚出Android手机,微软或将受惠 苹果不收购Nest的大猜想 Netflix开源S3一致性提升利器S3mper Fi 《近匠》第06期:UCloud——目标!完整云服务 小三上位:Windows Phone不容忽视的契机 “详解Visual Studio 2013”全国巡讲北京站:无忧开发iOS及Android应用 Chrome最新版:快速静音及在Win8中建Chrome OS系统 雅虎COO Henrique de Castro因业绩不佳被解雇 分析比特币背后的数据算法,抢占背后巨大市场先机 美食菜谱将会成创业风口的两大理由 Windows XP杀毒软件更新 将被延至2015年7月 小心,商家已经盯上你了 一软一硬 让你时刻保持清醒的可穿戴产品 寓教于乐 贝瓦依托移动平台打造中国式儿童“轻教育” 中科创达:CES2014上的中国红 SA:2014年移动互联网十大技术创新预测 回顾2013:HBase的提升与挑战 Google打造云中Hadoop便捷版,强势对抗AWS 【信息图】专业Web设计师和业余设计师的发展状况并不协调 先试后买:Agawi推新型广告服务AppGlimpse 搜狗CEO王小川:“硬件免费”是误区 平均比Hive快24倍,Impala剑指Stinger VFP8.0中的数组问题,高手和用过的人来看看! 数据库的移植问题? 重新开机时常常变成"大图标",怎样设置使WIN2K所有磁盘(c,d,e盘)上的所有文件夹和文件以"列表"显示,就是让"查看"->"列表"固定? oracle9i的安装文件都有什么?望高之!急! 哪位有没有SCJP培训的录音或其他教学的好东西阿 MSComm控件在设计时运行没问题,但打包后装到别的机子老是出现“没有注册类”,求救? delphi 做的数据库应用程序如何移植?? copysign怎么用啊? 如何将一个网页的所有链接均自动加为绝对链接? 技术与数学的问题 本人写了一个设置纸张方向和大小的函数,其中MyDevMode.dmPaperSize = psize '若vbPRPSA3 设置纸大小为A3,但在VB对象库中找不A2张对应值 tomcat4.1.24中的sevlet问题 我下载了linux的iso文件,可怎么安装啊!! 我想问一下,有关于计数器的相关的信息? 救急:是否可以在两个页面(两个单独打开得ie浏览器页面)传递参数,如何实现啊? JDBC相关的两个问题 Oracle8.1.6怎样连接SQL SERVER2000 ?(在线等待) inserted表问题 急!!!关于FileSystemObject问题,在线等 dll 编译问题 请教 请教关于iterator与container? 谁有mixerAPI的中文资料,如(mixerGetLineInfo)我需要弄懂原理(不需要MSDN) 请问“怎么样才能修改以有的flash文件”,拜托,在线等待 如何使相同的子窗口显示一个? ?请教高手有关Align的问题。 高手帮我谢谢注释~~高分相赠~~~~谢谢高手~~~~ 各位大牛们,小弟想请教大家对FlowMIS这个平台有多少了解,用此平台进行二次开发(企业信息系统)好不好。 SQL SERVER2000 怎样连接Oracle8.1.6(在线等待) C语言程序设计 如何在英文字符集的客户端访问服务器为中文的数据库? 那4M是不是让诺基亚给偷了?! 如何调用ResetPrinter函数设置默认打印机 listview使用的问题 delphi的打包问题 请大家推荐一个短信网关 调查:当你身边响起神圣的国歌时,你会不会不由自主站起来,手放到胸前,跟着节奏一起唱起来?(有感而发) 请问如何调用.chm的帮助文件? 如何调用系统默认打印机的属性! 请教新手问题~~~麻烦哪为大侠给解释解释~谢~ 如何用struts实现阴阳色列表? 怎么用vb建立一个数据库呀?注意,不是一个表,是一个数据库! 如何调用系统默认打印机的属性! 一个很老很过时的数码相机。 郁闷,超级简单题目 初学ASP,请教学习心得 我的机器怎么老死机?? 两级表单动态联接?急,急,急!!!!!????? ---见了鬼了,Jre不好用!!!--- 寻求把中文字符串转换为十六进制的串的ORACLE函数? 电力学院惊魂 一條語句 數據庫日誌就寫滿了 redistribute connected什么意思 求出自论语的成语集合 求100个或以上,不用注释神马的,出自论语的就行了 有5盒糖,乙有4盒糕,值44元.如果甲、乙两人对换一盒,每人所有物品的价值相等.一盒糖、一盒糕值多少元 connected什么意思 求氨基酸缩写与R基对照表如题文字的更好,省的我抄了谢谢 收集保护环境的句子我要求限时到6点,现在是3月3日 17:36计时开始6点到,555,我的要求没达到 Matlab2008,拟合自定义的曲线方程以下是怎么得到的,打开曲线拟合工具箱,选择拟合横纵坐标,输入新的曲线拟合形式:a/(1+(a/37000-1)*exp(-b*x))得到结果如下:General model:f(x) = a/(1+(a/37000-1)*exp(-b*x))Co Stamps这个单词是什么意思 一辆汽车绕一棵大树不停的开,且使车子与大树之间保持有20m的距离 司机应该怎样确定开车的路线 一个简单的概念性问题0是否可以进行开立方运算,如果可以,那么“根号0”是有理数还是无理数?谢谢! 先进个人材料怎么写啊 Component是什么意思 滴血认亲事怎么回事? 先进个人材料 怎么写? vhdl中COMPONENT是什么意思谢谢 滴血认亲是怎么回事? 个人先进材料怎么写? component repository是什么意思 到底有没有滴血认亲这回事?如果是亲人,血真能渗入尸骨中吗 个人先进材料怎么写啊?要写些什么内容啊?年底了,公司突然把我评为先进,叫我写分材料,这个到底怎么写啊,要写些什么内容啊? For nearly a day they waited for an answer,only____to cime again next day.A.to be toldB.being told 生物上的通过血型 能完成“滴血认亲”吗? 民族团结个人先进材料怎么写 屋顶上的鸽子在"咕咕"的叫着.改成拟人句提前声明:前面有三个例题:::::小鸟在树林里唱歌;蟋蟀们在这里弹琴;蚊子在到处吹着喇叭. 兽医站能否承包出去给个人 谁知道一些初中数学的简便公式例如算一个数的约数个数的简便公式是把指数加1再相乘不要这乱七八糟拷贝的文章,自己知道的,一条也好啊 为什么我安装东西安装了一半总是出现destination component 请高级兽医帮我解决(猪病)紧急我家的猪起初食欲不好..耳朵发红..听一个烂人说要注射"复方氨林巴比妥注射液"..结果注射之后更严重了...不光是耳朵..还有眼睛都发红了..身体还起了一些红 建筑中檐高、跨度指的是什么? 建筑物的体积规模是哪一个词语的意思啊 神经网络拟合后的曲线如何得出方程 飞行最远的是什么鸟? gssg是什么氨基酸的缩写或者什么肽键什么的 请问什么叫精尽人亡?我和我女朋友在一起时,一次能射1至4次,这样下去对身体好吗?是不是应该适当控制? 外滩Bund应怎样发音?是发短a的音,还是u的音? 小学数学教科书的公式,只要是由什么方法得到的 精尽人亡是什么意思? Bund前用什么介词, 甲有5盒糖,乙有4盒糕,如果甲乙两人互换一盒,则每人所有物品价值相等.一盒糕,一盒糖值多少元?列出算式 高分求和论语有关的作文,比如说:论语中的君子之道.就是和君子有关的作文.大概有如下一些主题.最好都有,明天结束速度啊.*为政以德 *克己复礼 待贾如沽 *知其不可为而为之 *仁者爱人 *君 求初中数学奥林匹克竞赛定理最好是全的!例如:梅涅劳斯定理,塞瓦定理,相交弦定理,切割弦定理,蝴蝶定理,托勒密定理,欧拉线,正弦定理,余弦定理等等及它们的逆定理………韦达定理等著名定 怎样在PPT的模板中加入公司的log?导入的步骤是什么? 定义和解释有什么不同? Spring注解是什么啊 not only is a stupid women,but also is a stupid pig 根据 建筑地基基础设计规范(GB50007-2011) 算出监控立杆的应力是多少.求助!根据监控坑是1200X1200X1200mm,长宽深,浇筑C30混凝土,监控立杆高6米 支壁长6米,监控杆底下直径24cm ,上面18cm,支壁18--16cm.镀 JAVA Spring一段注解求解释 怎么在ppt中弄企业log? socially connected 精尽人亡是什么意思啊? Forever stupid pig ,this is my loue 地基基础设计规范 GB50007-2012出台没12规范,不是11规范 求《论语》全篇翻译 深圳靠近海的地方哪里好玩? internally connected和externally connected分别是什么意思啊 建筑体型组合有哪几种组合方式 为什么靠近海的地方温度差异很大 not connected是什么意思? 怎么快速而长久牢固的记忆20个氨基酸的3字母缩写? 三路车和六路车的数学问题金城路是3路车和6路车的起点站,3路车每隔5分钟发一次车,6路车每隔3分钟发一次车.两路汽车同时发车后,至少再过多长时间又同时发车? 印度北部村落遭武装分子袭击 造成7死菅义伟:处理福岛核电站事故应加强政府埃及前总统穆尔西到达受审地点 将接受新书称奥巴马曾向幕僚吹嘘:我擅长杀人普京签署《俄联邦行政违法法典》保护文突尼斯宣布将紧急状态再延长8个月 已印度将发射火星探测器 舆论对印度太空法小镇一家三个孩子同时遇害 母亲患有国际黑客袭击澳大利亚200多家网站 美垃圾桶内惊现女童焦尸 女童父亲及继法国前部长称法现任总统头号问题为总统悉尼机场设施建设被指“ 只有第三世界印尼官员警告人口暴增危险 吁政府推家eBay卖二战纳粹大屠杀时期遗物获利斯诺登:揭发情报机构监控丑闻有利于社朴槿惠时隔39年访法 会晤奥朗德磋商罗姆尼:奥巴马医保网站问题频出 有损菅义伟:处理福岛核电站事故应加强政府新书称奥巴马曾向幕僚吹嘘:我擅长杀人印度北部村落遭武装分子袭击 造成7死埃及前总统穆尔西到达受审地点 将接受黑森林火腿面包“线下理财应按金融机构标准管理”微言大义快手小黄人蛋糕卷宫颈癌疫苗在我国获批上市5批次网售食品抽检不合格沪指7月首遭三连跌 券商股领跌香辣牛腱子女乘客携真枪实弹乘地铁被安检拦下雨携清凉来区环保局通报:白云路分校教室装修材料掌控中场,布教授传球成功率百分百在雨中麦当劳菜单变“少盐好油多果蔬”感恩的馈赠 自由之战11月新版本前瞻1号线装屏蔽门海淀稻香湖多处湖面出现死鱼明天天气别被不良医生忽悠--这些症状不是尖锐“爱国”不是违法犯罪的挡箭牌尼斯恐袭凶手被曝曾驾车“踩点”数日
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘