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

如何在一个窗体内对动态产生的多个同名控件分别进行控制?

编辑:说三道四文库 发布时间:2017-09-22 03:49
HTML文档下载 WORD文档下载 PDF文档下载
在开发一个数据库软件时,要由用户自行设计输入项目, 此时程序需要根据用户的选择动态的产生诸如EDIT,LISTBOX等控件, 但由于无法事先知道用户会产生多少个控件, 就只能用:
var
edit1;tedit;
begin
edit1:=tedit.create(self);
...
这样的语句来产生控件,而在用户操作后,就可能会在一个窗体内产生多少同名控件。 
不知道有什么方法可以对这多个同名控件分别进行控制和取值,


 TForm1 = class(TForm)
 private
  List: TList;
  ..
 end;

procedure TForm1.FormCreate(..
begin
  List := TList.Create;
end;

procedure TForm1.YourProc(...
var
  Edit: TEdit;
  ListBox: TListBox;
begin
  Edit := TEdit.Create(Self);
  List.Add(Edit);
  ListBox := TListBox.Create(Self);
  List.Add(Listbox);

end;

procedure TForm1.FormDestroy(...
var
  i: Integer;
begin
  for i := 0 to List.Count - 1 do
    TObject(List[i]).Free;
  List.Free;
end;
比如要对产生的edit控件text属性赋值'ok'
procedure EditGetOk;
var
  i:integer;
beign
   for i:=1 to form1.controlcount do
     if (form1.controls[i-1] is Tedit) then
          (form1.controls[i-1] as Tedit).text:='ok';
end;
   
动态生成的控件的HANDLE完全不同,并且,动态生成的控件最好用HANDLE区别。
也可以给控件的TAG属性赋值,来区别各个控件。
Google揭露“仙女座”虚拟网络,及分散和集中架构之辩 DHTMLX Touch:开源的HTML5和JavaScript框架 Supercell下一城:《海岛奇兵》续写芬兰手游传奇 开发者盛宴 2014 Unity亚洲开发者大会盛大开幕 微软全球中国云业务总经理:云落地中国的最大难题 PTVS 2.1 Beta版发布 Visual Studio的Python工具 【走近院士】李兰娟:云计算与大数据将成为医疗改革利器 迭代不等于学习,聚类分析也不等于机器学习 Office大肆杀戮,已攻下Chrome Web Store Bug都补好了?Google发布Android 4.4.3更新 微软被传收购Xamarin 强势推进移动新战略 挑战传统金融业务 Facebook进军移动支付领域 亚马逊AWS需解决的五项问题 腾讯自曝:大数据平台的秘密 继Cloudera之后,MapR宣布对Spark的完全支持 企业实施商务智能的6个致命错误 《近匠》HBuilder:如何用JS调用几十万原生API? littleBits新推Cloud Module,普通人也能DIY智能硬件 如何创建浮动式标签模式? Office 365正式落地中国——移动为先,云为先 .NET Native:C++的性能 C#的产能? Arduino联合创始人Tom Igoe:创客,因何而创 【走近院士】高文:多媒体大数据的影响及面临的挑战 微软SQL Server 2014三大新特性:集成内存OLTP、BI和混合云搭建 Linux将会统治桌面端的7个原因 Intel首席科学家Randolph Wang:详解Edison AMD Mantle再添新作,引发下代GPU架构猜想 谈DAM决策,自建还是SaaS 证据显示:Linux战争已经转移到OpenStack RestKit:iOS开发必备,告别众多无聊代码 技术新突破:手机和平板可远程控制PC,Chrome Remote Desktop亮相 请问如何让listview具有单选功能??就是选中一条后该行就变兰? 5、五一散分帖,大家说一个比较好玩的地方:P Huffman 编码的译码方法??? 求助学习SQL server 的网站 寻找access数据库书籍电子版 有关redo log的archive,哪位能帮我解释以下Oracle Alert messages显示的信息? 谁来救我!!!谁有TreeView关于VB.Net的代码 有分送!!apache和tomcat怎么样整合,我想要简单一点的方法。 哪位仁兄告诉我Numega TrueTime的下载地址,给100分 std::string 和c-string 的问题 新手问题,十万火急!! 新手问个苯问题关于记录集(40)在线求 如何将EXCEL数据导入到SYBASE数据库中? 做asp程序员能拿多少钱?~` 有助与提高自己的想法,,征集!!! to 阿德 讨论:如何向一个函数传递两个参数(表名和字段名),就可以得到该字段的具体值。 我如何使在网页上显示硬回车? MySql数据库之国际化问题 javascript问题! 会者不难! CppWebBrowser中打开网页出现对话框(注意不是广告等新网页窗口),怎么自动取消或确定? 能帮忙看一下这个10行的小程序吗? (菜鸟问题)看看这是用什么技术实现的? 关于ORACLE_SID,ORAENV_ASK 如何将凹多边形裁减成为多个凸多边形 如何将凹多边形裁减成为多个凸多边形 我是一位刚学使用EVC的人,那位高手能帮我解决如下入门问题,谢谢! 如何将sql server中查询到的数据导入成一个excel文件,用vb实现 开机时cpqdmi.exe无法找到DLL 那你人气太弱了,100分都没有人理一下呀..在这里求助一下...~~~~~~~~~~~~~~~~ 在Paradox表中, 如何使数据立即保存到磁盘上?? 求助于大家! 菜鸟送分! 帮我看看吧!我的问题很简单的。 我的毕业设计遇到些问题 很着急啊,我在面试,这个搞定了就通过了,在线等待! 帮帮我 怎样获取listview视图中一条记录的字段值? 超难问题,寻思路:实现在WORD中能有象VC类成员提示的那样的列表框功能?我试过的方法遇到的困难(见内容). Word应用! 程序发布遇到的问题 js里面有去除字符串两端空格的函数吗? 请教大家,大家帮忙!! 请问用JS如何获取客户端IP? 急救:关于网站想实现网上支付功能应该办理什么样的手续? 如何将checkbox对应的内容提交到下一页面? 请问哪里可以down到最新的IIS服务器? 听说window 2003正式简体中文版已经出了,真的假的阿? 表单提交,求JS源码。 请问各位,在VC中制作Windows2000的服务程序,从AppWizard中应该选哪些项? 请大家推荐vb经典书籍. 杆的受力分析应该怎么做? 植物组织培养中植物玻璃化与褐化的原因 实例解析:如何抑制开关电源的EMI 杆的受力分析不会分析.杆的受力为什么就要沿杆?假如这个图中只有一个水平的杆应该也能平衡啊,那时候难道手里也沿杆? 邓小平抓政治上拨乱反正的一项重要工作是? 我想买台天文望远镜,是中焦距的好还是长焦距的好?主要用来观测近地星球... 什么东西不属于垃圾食品? 植物组织培养用什么植物好培养 不容易褐化和玻璃化实验课要做 之前做薄荷已经褐化了两次了 所以想换个植物做 求推荐 初学者想买天文望远镜,请大家推荐短焦(最好600以下)便携的性价比高的入门级镜.现在初选了几款:天狼D-60TZ星特朗CTS70星特朗P50AZ 夏天办公室工作环境的温度多少为好?当温度过高,老板又不肯采取降温措施能否进行投诉? 为什么没有数码变焦的望远镜呢?望远镜带有锂电池,数码变倍,就像摄像机一样把老远的东西拉的老近,只是没有摄像机的摄影功能,有三角架(因为机身比较大吧),采用双目结构,更加舒适,倍 天文望远镜的消色差镜头和普通镜头有多大区别麻烦详细指出区别不要留地址 请转载至问题上边 力的填空题起重机吊着9000N的圆木,沿水平方向匀速移动10米,则起重机钢丝绳的拉力对圆木做的功是——焦重70N的物体从8米高处落到地面,——力做功——焦 我想买个望远镜,大概能看到100-200米范围的,价格不要太贵.有木有推荐的 《龟虽寿》中,老骥伏枥,志在千里.烈士暮年,壮心不已.作者想要表达的意思 几道关于力的选择填空题1.下列关于力的说法,正确的是( )A 受力物体不一定是施力物体 B 物体与几个物体接触,就受几个弹力C 物体受摩擦力作用时,可以不受弹力作用D 一对相互平衡的力, 望远镜是定焦的好还是变焦的好? 龟虽寿中的老骥伏枥,志在千里.烈士暮年,壮心不已.表达了怎样的情怀? 英语翻译萨谬尔说过,人生如音乐,要用听觉、感情和本能谱成,不能只凭规律.我希望我的人生是一支吸纳来自上天的神圣能源的交响曲,将爱和激情的能量传送给别人,将自身的价值化成火炬熊 有没有一种望远镜可像照相机镜头变焦一样啊,就是不论远近都能看清 如何判断溶解度高低? 四大皆空是哪四大? 《晚报》2009年12月21日,天气降温,医院这几天每日大约有260人前来诊断比平时增加了百分之30平时大约有多少人就诊? 溶解度计算怎么判断有没有到饱和 急求 四大皆空 是那四大啊?和尚要四大皆空,是那四大啊! 《2012真是世界末日吗?》请看清楚,我要的是阅读答案,不是问是不是世界末日 CaCl2能使有色布条褪色么 四大皆空的四大都指什么? 2012到底是不是世界末日?我要真是的答案!要真的!我不想死啊!呜呜. 次氯酸钠溶液能使有色布条褪色吗?为什么 低温阀门要求无泄漏开关自如选什么阀好 2012世界末日 现在在哪里能看 哪些物质能使有色布条褪色大神们帮帮忙 可口可乐馆现在还送的可乐吗?是入口送的吗?如果是绿色通道进去也有拿可乐吗? 将足量的铁粉投入到溶质为 Fe2(SO4)3,CuCl2,稀 H2SO4 的混合溶液中,经充分反应后,将固体剩余物滤出并干燥,称得其质量比原加入的铁粉质量减轻16g,此时滤液中Fe2+的物质的量浓度比原来混合溶液 蛇的身体构造是如何的?各器官在体内的位置如何? 已知电场中A,B两点的电势φA>φB,负电荷放在A,B哪一点时具有较大的电势能? 用于今年冬季天气突然降温,市第一人民医院这几天每日约有260人前来就诊,比平时人数增加了30%,根据根据这条新闻,你能算出平时每天大约多少人就诊吗? 蛇的性器官在哪里? 什么是红光治疗? 污泥膨胀是在曝气池前端设置添料起什么作用怎么防止污泥膨胀? 为什么要强调在稀溶液下? 10*50望远镜是多少被光学变焦的 贵阳市小客车专段号牌摇号时是不是要登录才能摇号啊? 家人的意义是什么?3Q 我想和女友上床,可她不肯,所以我想给她有尼尔雌醇片,不知药效如何我和女友谈了一年了,可是只要一提要和她上床的事,她就躲,说什么也不行,实在没办法,所以我想到用药,不知尼尔雌醇片可 贵阳市小客车专段号牌怎么延期 已知XmolH2O中含有y个H2O分子,则阿弗加德罗常数为 A Y/X B 2Y/X C (X/Y)MOL-1 D (Y/X)MOL-1 尼尔雌醇片加可乐有什么作用 贵阳市小客车专断号牌管理系统.您好,我在贵阳市摇到了小客车专断号牌,我是用我哥哥的身份证摇到了号,那我现在去买车可以用我的身份证买吗,如果车的户主是我,可以不可以用这个号来上 100欧 负温度热敏电阻 多少度电阻为0 常闭电磁阀怎么控制流体速度做项目用到了常闭电磁阀(通电就打开,断电就关闭的电磁阀)来控制水的开关,我想控制下水流出的速度,请问如何实现?是和电机调速pwm一样的原理么?就是通过 尼尔雌醇片有什么作用多少钱12粒 家人能帮忙参加贵阳市小客车摇号吗? 关于在美国下载东西听说美国打击盗版打击的厉害,而且禁用P2P,于是有下列问题想问如果在国内买的安卓机下载PPTV等影视软件后,带到美国去用其下载视频算不算违法?如果只是观看呢?如果在 药理 药效 副作用 尼尔雌醇片有医学常识的 人进 我想问一下关于尼尔雌醇片的毒副作用 ,他的说明书,写的不详细,主要不是医生,有些名词不懂!再谢一次! 世界末日 到来的方式有哪几种 受力分析是活动的杆和固定的杆受力有什么区别? 设计一个简单的化学试验,证明空气含有水分谢谢了, 长焦的折射天文望远镜色差相对短焦小一些吗?这样是不是更有利于天文摄影? 美国废纸富阳新生 厂房有火箭队主场那学生小区吸烟 居民叫苦不迭俄罗斯民族主义者大游行 呼吁排外和限因治理水环境不力 海宁两名村书记被免小布什裸体沐浴自画像曝光 欲画19国首审穆尔西,法庭内外都不太平为了德美关系,默克尔宁舍斯诺登穆尔西能否逃离“政局魔咒”国际航天合作不应排斥任何人美国白宫微博有“水军” 专为奥巴马“华盛顿声称绝不宽恕斯诺登国际新闻早报:北约秘书长称东欧军演不小布什裸体沐浴自画像曝光 欲画19国多伦多市长吸食可卡因 只道歉拒辞职(美国务卿称沙特系中东领导 两国关系须巴西被曝曾监视他国外交人士 巴当局已美炸死塔利班领袖引不满 巴基斯坦检讨社评:印度探火星,大国谁能漠视战略竞美一女子以波士顿爆炸案受害人造型过节巴西被曝曾监视他国外交人士 巴当局已专家:从中央到地方反腐提速 不再只依上百中国人济州岛入境遭拒被关“小黑屋犄角旮旯也温馨“高铁游”开启过节新模式宁夏让文明旅游理念深入人心“双网”服务惠民便民“给文明的种子勤浇水”中欧班列助推丝路经贸驶入快车道刘云山对匈牙利进行正式友好访问自主管理点燃群众文体热情喜丰收守护红军桥八十年《中华孝道(二)》特种邮票发行黄金周市场活跃珍珠撒满黄河滩李克强将与葡语国家领导人共同出席中国文明旅游在路上老戏曲 新魅力“有交往无交易”好鞍山:从“好大一棵树”到“好大一片林林在城中 城在林中“中共十八大以来党治国理政的理论与实
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘