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

我在Form1上动态创建了100多个TImage和200多个TLabel(不是控件数组,而是一个个创建的,设有唯一tag),怎样可以快速将他们全部删除,并

编辑:说三道四文库 发布时间:2017-06-27 08:18
HTML文档下载 WORD文档下载 PDF文档下载
我在Form1上动态创建了100多个TImage和200多个TLabel(不是控件数组,而是一个个创建的,设有唯一tag),怎样可以快速将他们全部删除,并释放其资源?
创建这些控件的代码如下:

  While not DM.ADOQuery1.Eof do
    begin
      img:=TImage.Create(Self);
      img.Picture.Assign(ImageRes.Picture);
      img.Transparent:=False;
      img.Parent:=BrowseForm;
      img.Cursor:=crHandPoint;
     ......................
for i:=Form1.ControlCount-1 downto 0 do begin
  if (Form1.Controls[i] is TLabel) or (Form1.Controls[i] is TImage) then 
    Form1.Controls[i].Free;
end;

感谢 tonylk(tony) 的回答,但是我试了一下,要大概2-3秒才能完全删除这几百个东西,有没有效率更高的办法?

还有:用downto而不是to是不是因为可以美观视觉效果?
已经很快了;
这种方法有个隐含的问题,也就是在循环变量中赋的是一个可变的值:
for i:=Form1.ControlCount-1 downto 0 do 
Form1.ControlCount-1 删一个控件,变一次,在这个例子里可能不会有问题,但在其他地方就有可能出错.最好改为repeat...until
还有一种方法是可以把这些控件都放到一个panel上,删除的时候,只要删除panel控件就可以了
如果要想更快的话,我有个方法,不过没有试,但应该比上面快.你创建一个TObjectList.
MyObjectList := TObjectList.Create;
这样你每创建一个你的控件,就把它加入到MyObjectList中.当需要Free时,只要把这个List放掉即可.如果为了界面好看.也许可以先把界面先隐含掉再做.
肯定比上面快吧.因为上面需要做运行时的类型判断.
to sunware():你说的问题不是问题
把Form1.ControlCount-1先赋给一个变量就可以了
proman() 的办法可取。
创建一个FPublicOwner(任何一种继承自TComponent的组件均可,如隐藏的Panel),
作为所有动态组件的Owner,
动态组件创建时将它们的owner设为FPublicOwner,
全部删除时直接删除FPublicOwner即可。
如:

img := TImage.Create(FPublicOwner);
lab := TLabel.Create(FPublicOwner);
...

FPublicOwner.Free;
晕,用DOWNTO 而不用TO,并不是因为美化效果(帮TONY回答你),你自己看看,DOWNTO 和 TO 有什么区别,最简单的,从10循环到100就用TO ,从100循环到10就要用DOWNTO,明白了吗?????
我同意 zzheaptech(风的往事) 的方法!
在生成这些控件的时候指定它的parent为一个Panel,删除的时候直接将Panel删除掉,就会很快的
关注……
proman() 的说法绝对正确,补充一点:创建控件时,1 create,2 将控件加入数组,并获得数组内的序号 ;3 将序号付给控件的tag值 这样的好处在于可以任意删除、添加、修改某一个控件。
楼上不错,学习
替楼主问个问题,如果删除了再想创建呢,如把panle删除了是不是也要创建一个Panel呢,如果我想把这些Label或image保存到库中呢。包括label的x,y
坐标,tag属性,属于何中类型,如果我用list保存这些控件,如何我删除的不是全部面是一个或几个,怎样从这个list中快速找到我删除的哪个或哪几个控
件呢,(前提是不允许用循环啊)@_@
呵呵,我有办法解决。


引用一个新窗口form2,在form2上创建,全部创建完后把form2载入到form1的某个panel里显示。要删除时,先将form2隐藏,再删除form2。

form2.parent := form1.panel1;
form2.show;
不闪烁,无需循环
开源产品系列:面向组件的Web框架tapestry 360指责百度窃取用户信息 公布美杜莎插件技术分析 苹果正式发布iOS 6.1 最快本周日即可越狱 苹果高管:运行iOS 6的设备达3亿 Chrome OS 黑客大赛总奖金为314.159万美元 微软雷德蒙研究院副总裁:从计算研究到惊人发明 还驾驭不了4核? 别人已模拟出百万核心上的并行 RIM将网络直播BlackBerry 10发布会 解读TDD的五大误区 Amazon 2012财年Q4财报:电子书业务增长70% 从暴风影音CTO到创业者:画中画相机话中话 为什么Android应用开发总要比iOS晚? 传奇VC马克.安德雷森:未来的企业什么样? 呼吁国会通过“创业签证”:奥巴马助力美国招揽海外人才 Surface Pro最低1019美元,价值究竟如何? 搜狗号码通产品经理谈微创新 数据和运营更关键 在线推荐系统是如何进行工作的? 欧朋浏览器上架App Store,iOS生态真要变天? 苹果iOS 6.1地图搜索API将替代谷歌Places Oracle向开发者承诺 称尽快修复Java安全问题 日本:开发者与投资人都不容忽视的移动市场 Unity 3D引擎:十大最火的插件推荐 重塑品牌 RIM更名黑莓 发布BlackBerry 10移动操作系统及新手机 NoSQL依赖的不只是大数据 还有应用程序架构的改变 新一代Apple TV增强内在组件 外观不变 加速Web开发的7款知名HTML5框架 Firefox OS开发者日来袭 5小时15款Web应用出炉! 微软发布Office 365家庭高级版 订阅费499元/年 鲍尔默对Office信心满满,十亿用户量触手可及 【多图】梦幻现实 IBM的未来超级计算机水世界 一名骨灰级工程师的OpenStack部署总结引发的讨论 请问这个问题该怎么处理!十万火急!谢谢! 急:一个.Net 写DLL及调DLL的问题,请大家帮忙!(在线等候......可以再加分msn:w.hua@ynmail.com,qq:25857100) 救命啊 查找某个目录下是否有某个文件 邮箱命名的问题??? 怎样在一个窗口控件中显示两条自由报表的记录? 紧急求助USB带宽 请问哪里能下到《inside the c++ object model》英文版啊,谢谢 新手提问,大侠莫抛弃我,谢谢,请往里看。 求教:我想拦截CreateProcess()的调用,并取出参数是否可行???? 这是什么病毒 如何指定发送端口 如何设置treeview的scrollbar? 请问各位,谁写过一个程序的整个文档,小弟很急,想参考一下。不知是否可以。谢谢了! 打算过年后跳槽,大家帮帮忙看看我这水平能拿多少?来者有分 天灾 +人祸100分求救 各位再请看看: ccur(922337203685477.30)=922337203685477.25 ??? 用JAVA做APPLET程序的朋友请进!!! 如何使应用程序(基于对话框)在状态栏里不可见 急,求救!在线等!请帮忙,谢谢 SQL Server 的客户端问题? 在线等; 好好的程序不能运行了 ,提示:不能创建宏 怎样打开一个数据库在单文档的视中显示数据??(我没有没结过的贴) 调用外部程序的问题 偶去吃饭了!大家去吗?我请客好了:) 大家能不能介绍一下四川的迈普 VB6到VB.NET升级问题?有的FORM可以升级,有的不行,错误如下:(急!!!搞定立即散分!在线等!) 男人的花样,女人的年华(淡月儿) 如何在VB中正确将调用的Excel进程关闭? 请问 void UpdateDialogControls()函数怎么用……(******) 求教:我想拦截CreateProcess()的调用,并取出参数是否可行???? 我想请问一下sql的认证问题 触发器:For ,Instead OF 和After有什么区别?? slq7.0是不是不支持Instead OF 和After 远程访问方案征求!!! 为什么在我的XP的文件夹里面有Thumbs.db???? 不难的问题,请帮忙!! 如何改变ASP.NET Web应用程序生成的项目的位置?? 如何在JBuilder7中连接远程MS SQL2k数据库? 为什么在x-win32的窗口中,不能使用KDevelop,创建QT工程?? 数据源的连接问题?急!急!急!急!急!急!急!急!在线等待! paradox7表有没有最大记录数或最大容量?! 请问safety-critical systems是什么系统? 为什么<textarea>会有字数限制,我写了超过330个字符就不能提交表单了。 看看吧,想改變這种現象!!<marquee>能移動內容,但它移動時有空白(要等全移完后才又重新移)能否不要這中間的空隙。 那里有 netapi32.dll 中所有的函数及结构体的Delphi版定义? 在ASP里怎么能才让字符的ASC2码值加一。比如a加一之后等于b 谁有ehlib和fastreport的使用资料,哪下载??? 有关排序的问题? 高分相送!,求地税信息化方案 一个java程序,怎么写不进去?等待…… 请问雅思英语辅导去那家啊?找不到好的啊! 英国的哪些作家比较著名?说出他们的代表作 十八世纪英国启蒙主义文学的代表作家笛福,其代表作是? 英语读后感结尾时态我写了一篇英语读后感 结尾评论是写 它只是一个故事 但爱是真的 是用过去时还是一般现在时 著名英国作家有谁 如此 以至于的英文到底是什么? 写英文名著小说的读后感应用什么时态? 与辛弃疾同时代的英国作家 Just For Once I Wamt Some One To Be Afraid Of Losing Me的英文意思 at the end by the end in the end at the end of 有何区别英语不好 都帮帮 山东省小学6年级下英语配套练习册P 6 第 3 题的 :4 ) There is an umbrella ___ the road.求你了!2009年审查通过的! I want some one who's afraid of losing me.----- We 'll have to do the dishes before mother___home.A will come B comes C is coming D come 山东省小学6年级下英语配套练习册P 6 第 6 题的 :There is a radio ____ the house. 填空:鲁滨孙是英国作家笛福的长篇小说《鲁滨孙飘流记》中的一个____、 ____、 ____的主人公鲁滨孙是英国作家笛福的长篇小说《鲁滨孙飘流记》中一个____、____、____的主人公(六年级下册题 谁有2011年广东成人高等教育学士学位英语答案? 山东省小学6年级下英语配套练习册P 6 第 6 题的 :There is a boat ___ the house and the tree. 鲁滨孙漂流记是英国作家那个 I see three people on a bus.A speaks Englishi and Japanese. C only talks with B. B can speak Chinese and Englishi. what language does C speak? C speaks ____. is,photo,of,my,here,daughter,a 连词成句 鲁滨逊漂流记是以第几人称写的长篇小说 “机械设计制造及其自动化”用英语怎么说? This is a photo of my brother改为否定句 怎么改 If there is only one day left in you life ,what will you do? 写《老人与海》英语读后感的时态是过去时还是一般现在时叙述故事时是用过去时还是一般现在时 EF的Englishtown是不是在线口语课?有什么特色嘛? 英语到底要怎么样才能学好啊?表示我初一初二英语没怎么学 这个暑假复习完初一上册的了 还剩下三册怎么办啊 怎样既速度又有质量的学完它 look!SOME CHILDREN_____(sit)under the tree. 英孚在线口语课的Englishtown是全世界最大的吗? 英语要怎么学 we sit under the tree at lunchtime 对划线部分提问at lunchtime 划线 — — —sit under the tree? Englishtown的口语课老师最后是怎么打分的?最近有人介绍去上Englishtown,说是口语课不错,想知道这课上完以后老师最后是评怎么打分?评些什么呢? 现在的中学上到底学美语还是英语啊! 英语翻译 - Just for once i want someone to be afraid of losing me.- 英语到底怎样学 Englishtown的口语课方便上吗?对电脑有什么要求? i just want someone to be afraid of losing 英国文坛享誉世界的作家(至少3位)他们的名字和主要作品 英文读后感应该用什么时态 新古典主义在文学方面的发展及影响 英国文坛出现过许多享誉世界的作家,你知道他们的名字及主要作品吗?至少写出三位 translating 汉译英一般用啥时态? 用英语第一人称写小说,用什么时态?=.=突然就茫然了,用一般现在时感觉很奇怪.用过去时么? There is __"u" and __ "m" in the word "umbrella". 谁能帮我用英文介绍下苏丹 浅谈如何提高初中生英语听力水平论文答辩陈述词 有一首英文歌 大概是这样的 K 油米 苏丹的英语 Englishtown的课效果怎么样?上的人多吗? 推荐几首好听的英文歌- - 三克油. we'll have to sweep the floor before mother__(come/comes)back要不要加s 英孚教育的englishtown的每日电邮课程有用吗? 简爱是英国文学史上的第一部长篇小说吗? Aunt Green brought some apple pies for our picnic,(完成反义疑问句) Englishtown里有商务英语课程吗?看广告里好像介绍的不错 I just want someone to be afraid of losing - Let's take some food and drinks for our camp.-- Let's take some food and drinks for our camp.- And a tent ____,too.(选择填空)A.is needed B.should need ,为什么B不对? 英国著名文学家 简爱是英国上第一部长篇小说吗?快,有加赏
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘