在写代码时遇到这么一个问题,我想遍历Rzpanel上的组件(控件),将用户填写的数据清空。最开始使用的遍历语句是:for i:=0 to Sender.ComponentCount - 1 do(Sender传递进来的是Panel)。
测试了几次没有实现清空的目标,后面发现使用for i:=0 to Sender.ControlCount - 1 do之后却可以。
那么问题来了,为什么Control可以,而Component不可以?
经过测试与网络查证有这么几个关键的信息需要记录:
1、一个Controls控件继承自Components 组件
TControl = class(TComponent);
TWinControl = class(TControl);
有了这些继承之后才有多种可视化控件;
2、控件有Owner和Parent两个属性:
Owner指的是窗体,而不是上一级控件(这也是为什么控件是在窗体销毁时销毁);
Parent是层级关系,方便布局。
举个例子来理解,在需要用户进行填写某一项比较重要的数据的时候可以:
在当前窗体设置一个Panel并且编写相应代码(同一个窗体代码也方便编写);当需要展示时,创建一个新的窗体(由于是新的窗体方便设置窗体属性也方便管理),然后把Panel放置在新的窗体上Panel.Parent:=NewForm进行展示,由于Panel的Owner是当前窗体所以当新窗体销毁时Panel并没有销毁。
依据上面这个例子,在写框架时自然会想到写一个公用的函数或过程:ShowPanelByForm。
经过以上理解,不难想到,Panel.ComponentCount=0,导致实现不了想要的结果;但是如果不是Panel而是Form本身就可以。
附上一篇也说明这个问题的帖子:Delphi Controls (控件)和Components (组件)的区别_51CTO博客_delphi常用控件