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

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

编辑:说三道四文库 发布时间:2017-02-28 11: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属性赋值,来区别各个控件。
硝烟弥漫:三星起诉苹果最新iPad、iPod侵权 效仿Google Facebook欲整合Instagram用户数据 与苹果全面竞争?传微软明年推Xbox机顶盒 微软Ralph Haupter:WP8即将在中国上市 开发者黄金时代来临 Paul Graham:Y Combinator创始人成长轨迹 我们需要强密码吗? 为了改变?英特尔CEO宣布将于明年5月辞职 传苹果下一代Mac OS中将整合Siri及地图服务 TripAdvisor:使用AWS比服务器托管成本节省50% [MDCC精华]亚马逊AWS布道师Kingsley Wood:灵活IT架构之道 亚马逊诉讼彰显谷歌在公有云领域威慑力十足 AWS全球创业大赛 奖金100000美元 YY:破冰而出,成功上市 Xtreme Labs工程师:Android开发常陷入的五大深坑 Elon Musk:没了乔布斯的苹果干不过谷歌 旁门左道:第一次开发移动游戏就赚到28623美元 移动周报:小聪明赚大钱 游戏SEO如何耍鸡贼? 创翼全国 六城联动——2012移动互联网应用创新大赛开放日 全国六城联动沙龙 爱丽丝+福尔摩斯 Game Insight解谜游戏玩出新花样 Windows Phone 8 SDK大升级:部分功能兼容WP7 信息大图《愤怒的小鸟》发家史 Intel预测:10年之后你的手机是48核的 消息推送惹怒用户:应用开发者请别太过分 创新工场:我们如何孵化未来? iOS越狱比例下降:国内移动开发环境怎么了? 响应式图像技术与资源分享 看Twitter如何应对大选:少些Ruby 多些Java 软件开发中常见的十大系统瓶颈 [CTO俱乐部87期]三人行架构分享:开源是背后的支柱 推荐5款超实用的.NET性能分析工具 OpenStack基金会主席Alan Clark访华 欢迎提问 依旧是undefined function mysqsl_connect()问题 急:如何在生成的exe中添加新的属性页,显示更多文件信息? V-DVD ROM!? MSDN上的例子需要uafxcwd.lib,怎么找不到呢? 请问窗口的other事件是如何触发执行的 JSP如何学习 vc在什么时候会引起小喇叭的叫声 请教高手,如果在VB里实现内存共享? 用什么方法可以转换图片类型?譬如将BMP格式的转换为JPEG格式的,请各位大哥给点提示!!! 关于vb script数组和函数功能的二个问题!高难度! 关天打印问题? 只能最小化到屏幕的左下角 *急:无为,acptvb,请帮忙看看http://www.csdn.net/Expert/topic/426/426766.shtm (有关XMLHTTP) 在php中要取出一段字符串的前n个字节,而又要判断最后一个是中文还是英文,如果是中文则将最后半个字符省略应该怎么做? 有在BCB5中用过sapi5朗读中文的朋友,高分送上! 最初级的问题,关于编译程序的。 重庆市信息产业办公室荣获全国最差信息产业办公室称号 大家用PB创建Jaguar应用程序时,一般创建一个大包还是多个包阿? 奇怪的问题,来者有分!没回答问题的先到先得! 如何把临时表建在内存中 请教一个关于DELPHI多线程的问题 *急:无为,acptvb,请帮忙看看http://www.csdn.net/Expert/topic/426/426766.shtm(有关XMLHTTP) 比爱情少一点,比友情多一点,即不讨厌又不来电,你能做到吗? 请教一个问题,一个分两帧的窗口,分别是两个CView的子类。一个view里的下拉框选中一条记录,使另一个view刷新。不知道用什么mfc函数。 有关新开窗口的问题! please intrduce a good muti-root soft for win95,win98,winme,win2000,winxp 求助:哪位大侠能介绍一下网络传输设备(象 HDSL、Cable Modem)的品牌、厂家和性能? 我的ie浏览器怎么了? 搞软件开发时应不应该是一边看书一边搞开发? 请教:C中的共同体是什么?谁能解释一下或举例说明 关于线程套间问题。 请教各位在oracle中如何在date字段下条件? Window me对ADO是不是支持的不够好??? 请问csdn.net使用shtml如何构架的! 安装Acrobat后,只出现一个PDF Writer虚拟打印机,Adobe Distiller却死活装不上,不知是何原因? sybase anywhere5.0 支持 mid 函数吗,如果支持该怎么写 微软的一道面试题!!!!! help me!(53)问题解决以后再送100分 为什么我的win2000server上装不上Exchange5.5? 虚拟DVD-ROM????!!!!!!!!!!!!!!!!!!!!!!!!!!!!???? 建ORACLE网络服务名的问题!!! 数组作为地址传递到dll,在dll内进行修改,dll释放后,数组也跟着释放,怎么办呢??先谢了! 有关程序的规范写法 谁有minix操作系统的代码 PalmOS中的手写接口? 一个比较搞人的钩子问题! 获取客户端的浏览器的信息!? TMDIChildForm 是系统的一个类吗? 如何在创建新线程时传递多个参数? 数据库之间数据转换的问题。 microcp过来领分 地球内部引力变化地球内部引力是越接近地心引力越大还是越小,我自己分析是越小,不知道对不对 去掉3.900末尾的零后,计数单位由原来的( )变成了( ) 为什么滑动摩擦力会小于最大静摩擦力,这与很多因数有关系比如,摩擦力产生的小碎屑的作用.假如接触面绝对的的光滑(即不产生碎屑),又使得2个面之间的分子靠得太近,会产生吸引力,摩擦 地球内部引力随高度怎样变化 把小数点后面的零去掉,小数的计数单位就发生改变吗? 为什么说一般情况来说,物体间的滑动摩擦力小于最大静摩擦力?为什么不是大于?小于如何动啊?比方说一个物体的最大静摩擦力是5N,我用4。99N的力推它受到的还是4。99的摩擦力啊,它如 地球内部有引力吗?地面上的物体会受引力附在地球上,那么地球核心的引力是什么样的呢?地球的中心的物体都悬浮在地球内部的空间中吗? 如何测量静摩擦力和滑动及滚动摩擦力?计算公式那么在什么情况下,作用在物体上的力等于静摩擦力? 如图所示,电灯的重力为G=10N,AO绳与顶板间的夹角为θ=45°,BO绳水平,则 (1)AO绳所如图所示,电灯的重力为G=10N,AO绳与顶板间的夹角为θ=45°,BO绳水平,则(1)AO绳所受的拉力F1和BO绳所受的拉力F2 关于地球内部引力地球内部任意一点是没引力效果的吗?还是另需计算?具体怎么计算的呢?这和均匀带电体内任意一点是一样道理的吗?(不要高斯定理算的)谢谢了. 为什么滚动摩擦力就是静摩擦力 如图所示,物体的重力G=5N,AO绳与顶板之间的夹角为45度,BO绳水平,求AO与BO绳所受的拉力大小 地球内部引力怎样计算? 滚动摩擦力小还是静摩擦力小 如图所示电灯的重力g=10牛已知Ao绳与水平顶板夹角为30ºbo绳水平则绳ao及bo各受到的拉力各多少 51.7的计数单位 静摩擦力和滚动摩擦力的例子要例子 说清楚一点 为什么一个物体的最大静摩擦力大于滑动摩擦力? 51.7有多少个计数单位 小数点左边第二位是( )计数单位是( );小数点右边第二位是( )它的计数单位是( ) 拔河比赛中,双方的拉力是一对作用力与反作用力吗?比如甲对和乙对,那么甲对的拉力与乙对的拉力是一对作用力与反作用力吗 51.2的计数单位是什么 国庆节,工人师傅在马路两边挂灯笼,每两棵树之间挂1盏灯笼.如果马路两边各有18棵树,一共要挂多少盏灯笼?如果每两个树之间的距离是30米,这条马路长多少米?如果在马路两边每个50米放一个 为什么拔河时两边的力是作用力与反作用力RT,请说清楚一些,好的+30分 其中没有受到滑动摩擦力的是 1.为了迎接“十一”国庆节,某市装备用灯笼美化道路,需要A,B俩种不同类型的灯笼共200个,且B型灯笼的个数是A型灯笼的3分之2.(1)求A,B俩种灯笼个需要多少个?(2)如果A种灯笼每个40元,B种灯 我不清楚怎么去判断相互作用力 我知道定义 特征 但不知道怎么判断 晕死 最搞不清楚的是拔河时的拉力为什么是相互作用力?不要说什么胜负取决于摩擦力 这些都是书面语 我要知道的是怎 我想问下 汽车在公路上匀速行驶时 收的牵引力和摩擦力是平衡力时汽车受到的牵引力 是作用在汽车上还是地面上 还有摩擦力呢力作用在什么地方 要怎么判断呢 元宵节有哪些花样灯笼 拔河时两边的力怎么会互为反作用力拔河时为什么两边是反作用力 两边的人自己是可以控制力的大小的,两边的人并不是静止 绳子当然不会是静止的 最后绳向一方运动(不是匀速) 我知道 初二物理关于如果没有摩擦力的作文急 啊 !800里告急!~ 静摩擦力的方向和滑动摩擦力的方向如何判断?需要详细一点的,有例子讲解! 为什么最大静摩擦力比滑动摩擦力要大? 《如果世界没有摩擦力》论文我要高中的,500字左右,三篇可以了一定要三篇 中国节日,分别是几月几日 如图所示,电灯的重量G=10N,AO绳与顶板间夹角为45°,BO绳水平,从力的作用效果来看若将重力G分解为两个力,应当怎样分解?两个分力的大小F1=?F2=? 假如世界上没有摩擦力100字物理论文 每个节日的几月几号(英语)中国的节日!New Year's DayChildren's DayChristmas DaySpring FestivalNew yearWomen′s DayNational DayTeachers′DayInternational worker′s day我是说节日在几号用英语!!!!!!!!!! 下面各数中的"0"去掉后,大小有什么变化?0.8( ),16.2( ),520( ),0.012( ),6.800( ) 怎么写关于摩擦力的物理小论文只要方法,尽快一小时 小数0.708的计数单位是:A.千分位 B.1/1000,是A还是B? 想一想,下面各数中的0去掉后,大小有什么变化?0.8( )16.20( )520( )0.012( )6.800( ) 一篇物理论文《假如生活没有摩擦力》800字论文 春节,元宵节为什么要挂灯笼,挂什么样的灯笼,有何寓意等寻灯,问灯,画灯 下面的数去掉0后大小有什么变化?0.08_____8.0_____1000_____13.800_____. 4.7的计数单位是( ),它有( )个这样的计数单位. 为什么元宵节要挂灯笼20到80字 0.08、8.0、1000、13.800去掉0 后大小有什么变化? 7.58有几个这样的计数单位啊 元宵节的灯笼怎么做 一般情况可以看作最大静摩擦力等于滑动摩擦力吗? 用事例来区分静摩擦力滑动摩擦力和滚动摩擦力用事例来区分静摩擦力 滑动摩擦力 和滚动摩擦力.请以初中物理角度来区分. 静摩擦力和滑动摩擦力 最大静摩擦力在什么时候等于滑动摩擦力呢滑动摩擦力不是变化的吗?他怎么会一直等于最大静摩擦力呢就是。那个。比如说压力为80n的滑动摩擦力。和压力为90n的滑动摩擦力。都等于最大静 如何判断静摩擦力还是滑动摩擦力还是滚动摩擦力,请举例说明 如何制作元宵节灯笼 用卡纸来做的可以吗 什么情况下滑动摩擦力等于最大静摩擦力 去掉0.40末尾的零,它的计数单位如何变化? 跪求! 元宵节的挂灯笼要的是介绍不要太多,15 35个字。 如图所示悬线AO与天花板夹角为60度,线BO与墙壁垂直,灯的重力为G,求灯对线AO和线BO线拉力?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn