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

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

编辑:说三道四文库 发布时间:2017-11-24 08:15
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属性赋值,来区别各个控件。
Manhattan,Twitter规模的实时、多租户分布式数据库 Ceph浅析(中):结构、工作原理及流程 孙元浩:基于Spark引擎的高速内存分析和挖掘工具应用 腾讯私有云背后的团队,品高要做企业云计算的产品经理 撼动企业应用架构的十大技术趋势 Airbnb的管理之道:产品设计的点评策略与技巧 Windows 8.1 Update 1的下载地址和八点须知 《近匠》棱镜:手游渠道SDK平台的技术历程 OpenSSL究竟为何物,为何它的影响力如此之大? Redis大冒险:如何跳出SQL这个坑 【走近院士】张尧学:基于透明计算的云操作系统 微软转型之路:从Build 2014开始 大势所趋 HTML5成Web开发者最关心的技术 从火种到核心,浅析Hadoop大数据用户的演变 搭建高可用的MongoDB集群(上):MongoDB的配置与副本集 软硬件协同创新,共建未来数据中心 优秀Unix管理员的七个习惯 2014Unity亚洲开发者大会倒计时 干货内容日程汇总 TIOBE 2014年4月编程语言排行榜:Perl跌至历史最低点 Hadoop集群环境下网络架构的设计与优化 CloudFoundry架构优化:NATS集群化方案 Dropbox推独立应用,公司估值已达100亿美元 【走近院士】梅宏:云计算时代软件技术发展需求和挑战 云计算战争:OpenStack vs. VMware Cortana与Siri、Google Now的较量:支持功能更多 代码面试最常用的10大算法 “颠覆医疗” 时云医疗推三款硬件产品 华为章宇:如何学习开源项目及Ceph的浅析 EMC:大数据时代中对于数据保护的重新定义 Google Glass于4月15日在美对外开放购买,售价为1500美元 电脑上的网址怎么样复制到手机 ==找错!!! 两行代码,错在哪儿??== 有谁知道SQL SERVER为什么会占用600多M的内存? VB如何调用RAR? ====高分求助!!===== 哪位大侠知道可以下载电子书籍的好网站~~~(当然是关于计算机的。。。) 关于winrunner的delphi插件问题 截取swf动画里面的图片用什么软件,下载地址有吗? 上网速度慢?为何? win2000,安装在C:,NTFS格式,由于误操作,现在无法进入,出现提示为:missing operating system,怎么解决,急!(不想格式化重装) 请问如何在word里嵌入一个工具条 有关对话框的状态栏的问题? 怎样用DOM调用在服务器端动态生成的元素? 昨夜冻的肚子疼,不爽! 散分。 请大家帮帮我,水晶报表问题!! 小弟做了一JSP应放在哪个目录下? 小闪小蹦一把:偶来看看大家了,最近都好吧 :D 请问用什么方法,或什么控件可以实现新闻管理阿? Exception in thread "main" java.lang.NoClassDefFoundError: PrintPen 用jbuilder9编写bean的问题 update 问题谁来帮我看看。 listview的排序问题(在线等,请各位高人指点!) 请问谁做过烧录光盘的程序?谢谢 对FILE进行写操作,怎么FILE原来的内容没有了? 请教一个C#的问题,在线等! 请教Unicode的编码格式 刚刚接触vc,遇到不少问题…… 询问一条语句 如何将文件以binarry的形式存储在ACCESS中的"OLE对象"字段中,急!在线等待!!! 我机上的IE看所有的web页,如代码里有<font>,则字体看起来都变大了,几番变化,郁闷中。。 请问,为什么我输入新纪录,不能保存到数据库中 ODBC 调用失败 C++问题。。求教~ 寻找OA系统的例子和代码 为什么我的TreeView控件每次加载后第一项总处于选种状态? 关于一个SQL的一个语句 成功的在redhat 9.0上装上了oracle 9.2.0 高兴!散分 Jbuilder 9 中控件大小问题!请教各位。 ce上鼠标键盘没有反应 oracle安装的一些问题,发现oracle用户下的/opt/oracle的空间不足?? 由谁做过用电脑发传真到传真机的程序的?疑问 我要做一个幼儿园的网站,谁能提供一个幼儿园网站的FLASH首页的动画呢?谢谢! ?? Database::Master/Detail ---Initialization 大家讨论 com 和 automate 有什么关系 IE中的Applet出错(用的是IE自身的JVM),急! 大家来评一评----美 利 坚 合 众 国 宪 法 IIS下建立的虚拟目录,指向局域网中的电脑,怎样设置网络用户名密码等? 如何在网页中加一条链接调用客户端本地磁盘的应用程序? 如何维护一套系统 如何更新checklistbox? 谁知道把图片转成字符的软件???来领分。 有偿寻b/s(浏览器/服务器)解决方案 신성가구请问这是什么意思? 신 성수 it is very cold,i couldn't feel my hands.这句话怎么翻译啊? 1.Make _____(务必)you'll get there at six Sunday morning.2.You are sure to s_____ if you set your mind on it.3.Did you come to London for the p_____of seeing your family or business.4.Can you e_____ yourself clearly in English?5.I have full ______( 赣江上游地区过度发展种植业可能对鄱阳湖产生的影响? 华尔街英语的外教正规吗? 사랑해호신희是什么意思? 당신과 싸우고 싶지않아是什么意思 난 당신과 함께 있고 싶어是什么意思? 당신과 나 함께 . 英语翻译早安的藤本美贵~她是属于早安少女的什么组?是什么时候加入早安少女组合的?又是什么时候,什么原因离队的? 外媒:中国医院加强安保防暴力袭医安倍突访土耳其 传为劝阻土放弃购中国英国“小报女王”将接受刑事审判 令世英首宗疑似3D打印枪支案曝光韩承诺彻查干涉选举丑闻 被视为朴槿惠翘臀又嘟嘴 壮汉翻拍“性感照”遭吐槽男子纽约杀表兄家5人世界“最高男”终觅真爱斯诺登曝美国一月内监听西班牙6000美议员:欧洲应“感激”监听保安全格副总理当选总统最高人民法院:“失信人黑名单”巨大威广西隆安:停水三天疑为水源污染 县政中国首部大型工业电视纪录片《大国重器两岸企业家峰会2013紫金山会议发表8岁男孩不服父亲管教离家出走 欲跟陌杭州拟斥资建城市通风廊道 引郊外风吹新疆兵团3家企业涉环境违法被环保部监新疆南部铁路部门开通51趟临客送拾花娃哈哈三度试水白酒业 业内预期谨慎乐报道称美国安局重点窃听韩国 韩国要求乌鲁木齐蔬菜直销点所售蔬菜加价不得超
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘