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

用FOR循环给成批给控件属性赋值的进一步问题?

编辑:说三道四文库 发布时间:2017-10-24 03:56
HTML文档下载 WORD文档下载 PDF文档下载
上一次的问题如下:
我在一个窗体上定义了12个LABEL控件,分别为LABEL1----LABEL12,现在想用FOR循环给它们的一个相同的属性赋以相同的值,我的想法是这样的:
for i:=1 to 12 do
begin
label[i].visible:=false;
end;
但这样做显然不行,请问我如何才能在实例的名字中使用一个变量?

霹雳猫(DELPHI迷)的答案如下:
先给这些需要成批处理的Lable的Tag属性设置为一个统一的值,如3
例:
for i:=0 to ComponentCount-1 do
if components[i] is TLable then
   if   (Components[i] as TLable).Tag=3 then
      (Components[i] as TLable).Visible:=false;
我已经试过,的确可以达到把所有TLABEL控件成批赋值。

现在,有一个更进一步的需求:
我要根据一个变量N的指示,把从LABELN+1到LABEL12的VISIBLE属性改为FALSE,如何改动以上代码?
另外,我查了一下DELPHI的帮助,没有看懂COMPONENT这个东西的含义?麻烦哪位贤人再多费口舌,解释清楚一点。
你查tcomponent关键字
Components are persistent objects that have the following capabilities:

The ability to appear on Component palette and be manipulated in the form designer.
The ability to own and manage other components.
Enhanced streaming and filing capabilities.
The ability to be converted into an ActiveX control or other COM object by wizards on the ActiveX page of the New Objects dialog.

从上面知道,component的对父类tpersistent的一些功能上的扩展

vcl树,tobject-tpersistent-tcomponent(如果想要完全版的话给我发消息)

如果要改动从LABELN+1到LABEL12的VISIBLE属性改为FALSE
我觉的还是从tag属性入手,~~你该不会要动态的改变N吧
我正是要动态的改变N,N来自一个LISTBOX,随着选择的值不同,要隐藏LABELN+1以后的控件,现在又有新问题了,除了LABEL1---12以外,还有EDIT1---12,也要象LABEL一样的隐藏,该如何设置EDIT1---12的TEG属性?我套用了以上的程序想同时隐藏LABEL和EDIT,但为何LABEL能实现,而EDIT却不加选择的全部隐藏呢?
我用的程序如下:
procedure Tsettankform.ComboBox1Change(Sender: TObject);
var
n:integer;
i:integer;
begin
n:=strtoint(combobox1.Text);
for i:=1 to componentcount-1 do
if components[i] is tlabel then
  if (components[i] as tlabel).tag=3 then
    (components[i] as tlabel).Visible:=true;
for i:=n+3 to ComponentCount-1 do  //因为面版上还有另外两个LABEL控件,所以从n+3开始。
if components[i] is TLabel then
  if (Components[i] as TLabel).Tag=3 then
      (Components[i] as TLabel).Visible:=false;

for i:=0 to componentcount-1 do
if components[i] is tedit then
  if (components[i] as tedit).tag=2 then
    (components[i] as tedit).Visible:=true;
for i:=n to ComponentCount-1 do
if components[i] is tedit then
  if (Components[i] as Tedit).Tag=2 then
      (Components[i] as tedit).Visible:=false;
  end;
end.
这样好了,你不是有12个edit和label吗
给每个edit赋不同的tag值,从0到11,tag是整型的,你可以用判断语句>或者<来进行过滤
keke,觉的怎么样,应该可以解决你这个问题吧
for i:=n to ComponentCount-1 do
我还没有试过,它是按什么顺序遍历下去的??申明的顺序?
我明天回来试一下,继续讨论,`~~~keke,,睡觉
试过了,遍历的顺序是按某种顺序,我得出的是tlable-》tbutton-》tedit
其他的就没有试了,你的问题搞定了没有
谢谢小弟弟,我自己搞定了!这话怎么不太对劲??
告诉你一个更聪明的办法吧:
for i:=1 to 12 do
begin
  TLabel(FindComponent('Label' + inttostr(i))).Visible := False;
end;
想怎么遍历怎么遍历。
浏览器的改进应来自用户诉求而非商业诉求 《近匠》Moxtra:可内嵌的一站式移动协同解决方案 互联网时代的无栈开发 SDCC 2015参会感——无法计算的价值 英特尔中国研究院开放日 多个研究项目齐亮相 阿里王晶昱谈淘宝双11分布式数据库实战 为什么移动化对企业级应用如此重要? 移动App图标设计的最佳实践 在Node应用中实施Web认证的四大方法 如何在Swift中使用LLVM API? 七麦科技王东:搜索优化与数据支撑打破App推广困局 Android国外学习资源汇总 【CTO讲堂】揭秘高效协作工具背后的技术架构 TIOBE 2015年12月编程语言排行榜:Java正处巅峰 “Atlassian—敏捷就这么简单“沙龙在京落幕,百度、京东专家秘技公开 《近匠》奇点机智创始人邬霄云:用DeepShare打通App间的信息孤岛 如何使用HBase构建NewSQL? 《近匠》极验验证:基于“行为沙盒”主动框架的安全验证 C语言实现拉格朗日插值 C语言实现快速傅立叶变换 新手学Android开发经常出现的问题 Windows环境下SVN项目迁移的方法 C# Winfrom控件绘制边框 ASP.NET FormsAuthentication.SignOut()无法退出登录的解决方法 百度UEditor编辑器提示错误:后端配置项没有正常加载,上传插件不能正常使用! Font Awesome字体图标的使用方法 Bootstrap响应式导航菜单栏的实现方法 C#调用百度翻译API接口实现英汉互译 VisualSVN Server免费版和企业版的区别? svn中限制上传文件大小的hooks 如何将bluehost注册的域名转出到其它服务商 读取DFX格式图形文件100分 帮我看看下面的程序:函数之间是如何调用的,关于WindowProc(UINT message, WPARAM wParam, LPARAM lParam)函数的调用问题? LIstVIEW得到数据得问题 如何将搜索引擎(如:Google)的搜索结果存入本地数据库??? 寻找分页标签 -------Insert 语句中关于字段个数与插入值个数不相同的情况,如何解决?谢谢! 怎样做一个电脑维修技术员 有多少做SW的想请美工和做软件网站? 怎么解决TransparentBlt()画出的透明位图是倒的啊?给100分!! 点击datagrid的edit或select按扭时,如何使被点选的这行变色? 用format取得2003-06-17 09:58:29.00的后面的时间! 请问各位大侠,有什么基于WEB的打印控件比较好用,其数据可以导成EXECL文件? 实在不知道应该放在哪了??高分求个东西!(100分) sQL*Plus worksheet ?请教错误问题! 求教:有恶意用户登录BBS,想踢出该用户,如何操作? 使用axWebBrowser浏览网页的问题 如何把资源流对象(ResourceStream)转换成字符串(AnsiString)? 静态网页内怎样使网页指向到另一个网页? 我的PB是从微软的网站上面DownLoad下来的 学together吧,他比Rose好,borland确实有活力,学together的几大理由!!!!!! 制作在线人员的问题~ 破解后的activereport用vb编的报表程序打包后用在别的机器上还用破解吗? 请问:在VC++.net中能不能编译C++源程序? 说一句你现在最想说的一句真话。 没有菜单和导航栏、地址栏的web页怎么做 问一个小儿科的问题,怎么在Apache中新建一个虚拟目录? quickreport小問題 MFC兼容STL吗? 怎样取出Crystal Repeat for .net的字段? excel报表显示问题 ,请帮帮忙 请问那里有关于IBM LOTUS DOMINO R5 的电子书?? SQL的数据类型转化 DevExpress QuantumGrid动态分组后如何动态取消分组? 帮忙写到题 简单问题,新手请教! 把ChildForm做成DLL形式,用MDIFORM去调用,为什么CHILDFORM中的SPEEDBUTTON的FLAT设置为TRUE没效果 如何在一个字符串中插入“”即双引号啊 今天我终于牵到她的手啦!!开心... 高手指教:怎样移动Line控件,line有没有句柄呢? 关于邮件迁移,求救!! 关于我的笔记本风扇,不知道问题出在哪里 我用masm32的qeditor,但无法运行代码(没反映)? 我想做一个新闻发布系统 请问在VB里面怎么调用水晶报表,报表我已经做好了。 十万火急!请教高手! 系统反复重启,给100分,急等解决? 不知道一个程序的名字,知道它的文件名和路径,如何在例程中关闭程序 200分高送!如何往数据库中读取下列的数据,特别是中间有的数据为空!! 如何将MDI主窗体变为普通窗体?急!! 兄弟最近开发出一套工程机械的管理软件,不知叫什么名字好,请大家帮忙起个名,近来者有分(谢绝废话) 如何将Dbmemo植入Dbgrid中? 解关于x的分式方程x平方/(x-2)-k/(2-x)=1时产生增根,那么k=多少?填空题 女孩子扎头发用的皮筋怎么翻译"皮筋"用英语怎么说 成语:防()()防防()()防神()()神痛()()痛贼()()贼举()()举闻()()闻微()()微 潜水员需要什么样的身体条件? 求英语达人看看以下3篇小作文有无错误.我英语不大好,因为英语作业(小学六年级)不会写.所以..题目:Sperm Whale内容:A sperm whale is 15 meters.It's 35 tons.It has 50 teeth.Each up to 20 cm long.Its tail is 8 以"防"为开头的成语 《船长》一文中,你认为最能体现哈尔威精神品质的句子是什么?请写下来吧! 出三篇英语小短文,六年级急用!十万火急!只要50子左右!出三篇英语小短文,我是六年级的,只要50子左右.内容可以写介绍公园,介绍我的房间等.各位英雄好汉帮个忙,答的好会加分.最后申明只要5 同时自由转动如图甲、乙两个转盘(两个转盘中指针落在每个数字上的机会均等),转盘停止后,指针各指向一个数,将所知的两个数相乘,求两个数之积为奇数的概率我就是不懂它说落在每个数 以《_________最美的事》写一篇作文 下面两张图的成语是什么第一个知道了,不是成双成对. 六年级上册,写三篇英语短文写三篇关于天气、种花、交通规则的英语短文 最美的乐章 作文素材 只要告诉我可以写什么内容 请问这是什么成语?如下图 双人+旬是什么字 电子表里有个石英震荡器,怎么利用它呢? 言字边一个心是什么字一个扇面书画上的字,有谁知道告诉一声 小丽家三月份比二月份节约用电8%三月份的用电量十二月份用电量的百分之几 读诗句,猜猜迷.千锤万凿出深山,烈火焚烧若等闲.粉身碎骨全不怕,要留清白在人间.[猜一建筑材料:( ) ] 一朵芙蓉顶上栽,彩衣不用剪刀裁.平生不敢轻言语,一唱千门万户开.[猜一动物:( )] 做潜水员需要年龄,身高.等等要求吗? 两条什么的小辫 弓加偏旁,能有啥字?要5——7个好的得分是给弓加偏旁,别当成弓当偏旁了,还有组上词。还要给子加偏旁。是2——4个 看过一部国外电影,潜水员准备把核弹丢在海底,突然有一个海底生物出现,带着他到海底,看到了海底城市 我和我的建筑都像竹子 贝聿铭能够成功的要素有哪些贝聿铭,1935年到美国攻读建筑专业,1958年成立贝氏建筑事务所,1983年获得建 金手指颁奖大典急招 古天乐新片征召女主角 中国网络通俗歌手 给弓字加个偏旁部首可以组成什么字? 怎样把六边形分成3个三角形要有图片 贝聿铭:他和他的建筑都像竹子中的一道题身为一个文化缝隙中的优雅摆渡者,贝聿铭鱼和熊掌兼得. 怎么理解啊?在线等,好的加分 开( )大吉(填弓字加偏旁) 学说话,写成语例如:说话不明不白是——含糊其辞挖苦别人的话是——欺骗别人的话是——非议别人的话是——吹捧自己的话是——自我辩护的话是——说话理直气壮是——神()()神 我有这几个字不认识,请大家帮个忙,左右结构左女字旁右一个内,读什么? 一列数—2009,—2005,—2001,—1997,..按照后一个数等于前一个数与4的和,则这列数的前几个个数和最小 辫子用英语怎么说? 请问用什么打字的打繁体字比较好? 13 05 11 05 01 11能否构成一个数列 形容小孩子学说话的一个成语是什么来着 三只鱼排队游着,旁边写排队进入是什么成语. 2001个2001×2005个2005×2009个2009能否被2整除 我有一对漂亮的小辫子用英语怎么说 三个鱼排队是什么成语 站在秋天的门口作文750字 言字旁,右边一个 心 是什么字? 用什么打字打出来的是繁体? 以最美的..为题的一篇作文 言心 着个字念什么?急 如图所示,把橡皮泥与塑料笔帽笔筒粘合在一起(橡皮泥太 重笔筒会下沉.试分析出现这...种现象的原因如图所示,把橡皮泥与塑料笔帽笔筒粘合在一起(橡皮泥太 重笔筒会下沉,太轻会上浮),使它 2道诗歌阅读选择~谢谢~ 一个言字旁一个心怎么念?朋友给我起了个网名,有个“訫”字,这个字怎么念? 细胞内发生碱基互补配对过程的有A.DNA复制B.转录C.逆转录D.RNA复制E.翻译F.TRNA携带氨基酸都有哪些 D F 成语玩命猜六个神字少一竖 图片里面步字下面多了一个脚是什么成语 “神韵”的意思? y=2X(X2+16)(X>0)的最值.(X2即X的二次方) 如图,在正方体ABCD-A1B1C1D1中A1B和B1D1所成的角是多少度?(图有点乱,但问题简单上面分别是A1B1C1D1,下面分别为ABCD)写下过程谢谢你 神韵的意思 航运公司潜水员做什么的母亲安排我去 华中航运集团有限公司(武汉) 去做潜水员!去了再学呗!她也不知道潜水员具体是干什么的!水运企业的潜水员是干什么的!辛苦程度如何? 面对人们对于阅读的忽视.英语怎么说. 女字旁加一个市念什么 填空:学X学=数学,数=(),学=(),这题怎么填空呀 用英语写一篇作文 十五年后的我 小学六年级的水平 50字左右 口字旁加一个宫念什么?口字旁加一个市念什么?口字旁加一个波念什么?这几个字很难找..都要愁死我了. 巴武装分子向以色列发射火箭弹 其中一法国再出现鲨鱼袭击 男子冲浪遇险一条巴武装分子向以色列发射火箭弹 其中一印尼首都雅加达打击街头“面具猴”表演法国再出现鲨鱼袭击 男子冲浪遇险一条背景资料:格鲁吉亚\"当选总统\"吉外媒分析耶伦若就任美联储下任主席 面日本东电职员因短信骚扰女性被捕 称为美国网络销售辱华面具与服饰 迎接万圣快讯:嘉兴一在建工地坍塌4人被困 目浙江最后一座煤矿的前世今生 沧桑遗址互联网企业Logo为何被蓝色“占领”肯尼亚16岁少女遭6男子轮奸 嫌犯仅阿根廷执政联盟赢得议会中期选举美国议员称美监控计划拯救数千人命 欧朴槿惠手戴太极旗手套为韩国职棒决赛开报告称美国一年有500名少年儿童因枪美国现实版越狱:4囚犯通过浴室天花板日本小学生制成长33.9米鱼卷 打破韩总理发表国民谈话 将彻查国情院干涉日东电职员因短信骚扰女性被捕 称为吸名家 | 【平安银行 期权专家】走近连关三家门店:中国奢侈品高增长时代终OPEC VS 页岩油 谁是石油战争亚太自贸区要兼容各个经济体新源县新源镇团结村成立养蜂专业合作社玛纳斯县广东地乡四措并举让农民“冬闲习近平会见马来西亚总理纳吉布裕民县住村工作队争做老百姓的贴心人阿克陶县庭院经济激活发展动力世卫组织:7成中国受访者从医疗机构获新源县:一个美女干部的住村生活“抽光我的血也要救爸爸”30+打工狗EDC 篇119.9元要啥自行车---Pione#双十一晒战绩# 动圈加动铁妖不妖?美空网CEO傅磊预造资本市第一支美女电影版《盗墓笔记》的片场活捉一只“挖“台湾珠宝首饰展览会”11月20日即紧跟微信步伐!安卓手机QQ 6.0全乐行现身CBA联赛 篮球宝贝性感助威坠毁歼-10战机负伤飞行员时隔50天
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘