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

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

谈谈Android中文短信的实现 Android中文短信开发技巧 Android来电号码获取代码 Android AIDL初学者必看内容 Android与XML解析 Android天气预报程序开发实例与定位信息 Android中文短信开发终结篇 Android权限列表permission说明 Android输入法开发实例解析 Android示例程序Snake贪食蛇源代码分析 Android平台View的按键事件KeyDown用法 Android加速感应器实现屏幕自动旋转-Sensor属性 Android视频播放类VideoView解析 Javascript如何检测浏览器关闭了小叉叉 文件操作 - DOS BAT批处理编程入门教程(六) 获得手机中的电话簿 Android开发学习小心得 VC中用CPPToolTip轻松实现工具提示 Android中MediaRecorder类实现视频录制 WEB开发中将数据库记录转换到EXCEL表格文件xls供下载 F#是什么语言 函数式编程语言F#:基于CLR的另一个头等编程语言 编程获取Google PR值方法集锦 第一个F#入门程序Hello world 在F#中将函数作为一等对象的值 PHP获取Google PR值 ASP.NET(C#)获取Google PR值 android.appwidget类剖析 Android NDK之JNI使用例子 RemoteViews - Android Widget开发入门 ASP.NET如何用正则表达式得到网站页面中的所有链接 谁知道用socket通信,一秒鈡最多可以传多少条? 我要是想把已有SQL数据库变成*.SQL文件到别的机器上直接建库怎么做? 我用标准输入输出流来输入字符串到string的对象里,为什么得不到空格和以后的字符? 转一篇文章——有关LSD的罐头 (有点长,没耐心的就不用看了^o^) 送分! 超过10个回复请勿再进!!! VC程序调试问题 懂电路分析者请进 求树型菜单的代码??马上给分!!! VC可以调试可执行文件吗??? 请高手指点迷津 :) 求树型菜单的代码?? 如何使列表控件的第一列居中(包括标题文本和内容文本)??? 用查表法按ALPHA混合R、G、B也会这么慢?奇怪!(有源码)(50 怎样用vc开发一个动态链接库让PB调用,要求参数为字符串 3dmax 的问题 关于用alert("信息!")弹出的对话框 up up up up up up up up up up up up up 请问“IE登录时”为什么Domino检测不到我的Username and password? 着急,这条sql语句怎么写?????? 爱的密码 散分啰!!统计BCB论坛现有成员... 这样的COM组件如何实现? 请教:我想学lotus,可不知哪有lotus和lotus教程下载,望指教! 多选项提交过来的值是什么类型的? ORA-03113: end-of-file on communication channel谁知道??高手救命! 星际争霸几大战略(大家切磋切磋) CHtmlView的刷新问题 关于asp.net加密的讨论 怎么样把两个ArrayList合并成一个??我在文档里找了半天也没找到!急~~!!!!!!!! 》》》菜鸟发问:SQL SERVER2000 可以对 office 文档进行全文检索吗? How to alter DBGrid Scrollheader Color? c怎样访问数据库啊?一定给分! from里的参数传递为ENCTYPE="multipart/form-data"时的问题? 网吧问题 如何在txt文件中查找字符 请问如何实现当进入一个combox时自动下拉列表框(不用用鼠标去点) 关于volatile 修饰词 过去用Delphi开发数据库都是用Access,现在急需使用SQL Server。请问:我必须掌握SQL Server中的那些内容。 如果我想删除日志文件的所有记录该怎么办?????? 怎么样把两个ArrayList合并成一个??我在文档里找了半天也没找到!急~~!!!!!!! 请问,NT4.0下怎样配置网关和路由? 请问如何知道一个弹出菜单是否以经关闭 升级后问题,奇怪,请指教? 什么是存储过程? 大侠们帮忙看看,简单问题 急:因出差,明天(12.20,第二期)的“微软.net高级程序员培训”转让(包括资料)!今晚6:00前联系,13910321169. 请问怎样才能在Access中选取指定行数的记录如第5-10条. 关于XML命名空间的疑问?请教各位高手帮帮忙!谢谢! 请问哪里有《情深深雨蒙蒙》下载??? ******斑竹快出来啊 看看我这个贴子啊!!!!!!!!!!!!!! 如何读取寄存器中的数据? 请问在数据库中如何操作日期型字段: 一个底面积是300平方厘米,高10厘米的长方体里面装有5厘米的深的水,把一块石头完全浸没在水里,水面上...一个底面积是300平方厘米,高10厘米的长方体里面装有5厘米的深的水,把一块石头完全 一块三角形地的面积是0.3公顷,底边上的高是80米,底边长多少米?如题 小青想调制一种巧克力与牛奶之比为2比9的巧克力奶,现有16克巧克力,需要加多少克牛奶 其人已心怪之的“已”是什么意思? 一块三角形地的面积是0.3公顷,底边上的高是80米,底边长多少米?说理由 一个长方体水箱,从里面量长50厘米,宽40厘米,深30厘米,箱中水面高5厘米,放进一个棱 中国古代有什么水果 各种水果代表的含义?六月一日是儿童节,我们班决定做水果拼盘,能不能告诉我各种水果代表的含义啊?急.(要求:注意,不是生日蛋糕,如果是这种,我可以自己去找.) 一块三角形菜地的面积是0.3公顷,底是150米,它的高是多少米? 我国古代有哪些主要的果蔬类? 一块梯形麦田,上底是600米,下底是400米,高是30米.这块麦田的面积是多少平方米?和多少公顷? 《满满一大杯牛奶》问题. 一个出身贫苦的男孩,为了积攒学费而挨家挨户地推销商品.  这天傍晚,他奔走了一整天,又累又渴又饿,可身上只剩下一毛钱.他决定向下一户人家讨一口饭吃. 中国进口水果我想了解中国从哪些国家进口哪些水果,谢谢~ 英语翻译蔬菜协会(用英语怎么说)英语翻译 一个梯想如果上底怎加5分面积增加5平方分米就成了平行四边形如果原梯形的上底是3分米那么梯形面积是多少 一块梯形菜地,上底240米,下底360米,高是下底的一半,他的面积是( ),和( )公顷复制回答 我不想买一些水果翻译 一瓶200ML的纯牛奶,我第一次喝了四分之一,加满水摇晃后,又喝了三分之一.这时瓶中剩下几毫升纯牛奶 把5个苹果放进4个盘子里,会有几种分法? 一个长方体水箱长80厘米,宽40厘米,高60厘米,箱面水面离箱口6厘米箱内有水多少升? 有三种盒装牛奶(200ml的2.5元 250ml的3元 190ml的2.2元)比较牛奶的净含量和售价,购买哪种更合算?急……………………急是不是用毫升除以钱数得出售价? 水果店中,2斤苹果和3斤桔子共值21元,3斤苹果和2斤桔子共值16.5元,问1斤苹果多少元? 水果店运来一些水果,菠萝的筐数比苹果少三分之二运来苹果24筐,运来的菠萝比苹果少多少筐?2、水果店运来一些水果,苹果的筐数比菠萝少三分之二,运来苹果24筐,运来的菠萝多少筐? 购买哪种牛奶比较合算 第一盒 :200ml 2.5元 第2盒 :380ml 3.8元 第3盒 :1l 9元 一块梯形地,上底和下底分别为50米和100米高80米它的面积( )公顷 水果店运来一些水果.菠萝的筐数比苹果少4分之1.运来菠萝15框,运来苹果多少筐?(方程解) 直角三角形的底为6分米,求这个梯形的面积! 一块梯形的面积是0.12公顷它的上底与下底的和是80米高是多少米用方程解 一个三角形图形,三角形面积是0.6公顷,底长300米,有多大? 个底为6分米,高为15分米的直角三角形右侧对接上一个梯形,拼成了一个平行四边形,求这个梯形的面积.以五年级的公式写出来行么? 一个梯形面积是1.5公顷上底是80米高是100米下底是多少米 一瓶色拉油有5升. 这句话对吗 用两个完全一样的梯形拼成一个平行四边形.梯形的底是18分米,高是9分米,梯形的面积是多少? 一个梯形菜园它的上底是150米下底比上底多50米高是80米共收菜3570千克平均每公顷收菜多少千克快 一个面积是2.4公顷的三角形苗圃,底边长1200米,高是多少米? 在底6米,高15米的直角三角形右侧接上一个直角梯形形成平行四边形,求梯形的面积 一块梯形麦地,面积是0.12公顷.它的上底与下底的和是80米,高是多少米?(用方程解) 一个面积是2.4公顷的三角形苗圃,底边长1200米,高是多少米 下图石油两个完全一样的梯形拼成的平行四边形.已知每个梯形的面积是240平方米,梯形的高是多少分米?阴影部分的梯形,上底是5分米,下底是25分米 上图是由两个完全一样的梯形拼成的平 长方体,底面积300平方厘米,高10厘米,里面有5厘米水.一石头放入水中,水面升高了2厘米.石头的体积是多少 一瓶大可乐有几升?一瓶纯净水有几毫升?家用电饭煲的容量是几升?纯净水,就是矿泉水,1.50元 的多少升啊? 一种牛奶每箱25元,现在甲乙两家商店,甲按九折出售,乙商店买10送1,哪家的牛奶便宜?这个问题没有告诉要买多少东西,题就是这样的,并不是我没写.我也为这个问题苦恼, 一个底面积300平方厘米高10厘米的长方体盛有5厘米的水把一块石头浸在水里水上升2厘米石头体积多少立方厘米 一般色拉油的容量是多少? 一个梯形的面积是68.4平方分米上、下底之和是36分米,这个梯形的高是多少厘米? 有一个底面积是300平方厘米,高10厘米的长方体,里面盛有5厘米深的水.现在把一块石头浸没到水里,水面上升2厘米.这块石头的体积是多少立方厘米? 一个长50厘米,宽40厘米,高30厘米的长方体水箱,水深20厘米.如果放入一块棱长10厘米的正方体石块,那么水箱里的水面将上升多少厘米?(列式解答) 一个梯形的上底与下底的平均长度是30厘米,这个梯形的面积是多少平方分米? 有一个底面积是300平方厘米、高是10cm的长方体,里面盛有5cm深.现在把一块石头完全浸没水里,水面升2cm这块石头的体积是多少立方厘米? 霍华德 凯利医生所写的“医药费——一杯满牛奶”是什么意思? 一个长方体水箱,从里面量长40厘米,宽30厘米,深30厘米,箱中水面高10厘米,放进一个棱长20厘米的正方体后,铁块顶面仍高于水面,这时水面高多少厘米.(用方程解)今晚就要,求求各位大侠了,最 水果品种的英语及翻译 霍华德·凯利医生所写的一满杯牛奶什么意思 一个长方体水箱,长40厘米,宽20厘米,高30厘米,水深15厘米.现把一块棱长10厘米的正方体石块放入水中,问水箱现在的水的高度是多少? 已知一个梯形的面积是40平方米上底是8.5米下底是11.5米高是多少米 霍华德·凯莉医生所写的“医药费: 小清要调试2.2千克巧克力奶,需要巧克力和牛奶各多少千克?(巧克力与奶的质量比是2:9) 已知梯形的面积是36平方米,上底是3米,下底是五米高是多少米? 为什么霍华德.凯利能成为一位大名鼎鼎的医生 小青要调制2200克巧克力奶,需要巧克力和奶各多少克
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn