FindChildControl与FindComponent
来源:互联网 发布:淘宝资质1000什么意思 编辑:程序博客网 时间:2024/06/05 20:34
前两天编码遇到了要使用FindChildControl方法获取指定名称的TSpeedButton按钮,结果折腾了半天就是没得结果(基础不扎实,呵呵),于是赶紧搜索了下,补习关于这两个方法的用法。
TWinControl类的FindChildControl方法在FWinControls中查找返回指定名称的可视且有窗体的组件(继承自TWinControl类)。该方法可以确定当前控件是否含有(contain)指定名称的继承自TWinControl类的子控件,其结果与指定要查找的控件的Parent属性有关。如果未找到返回nil(NULL),该方法只查找当前控件的直接子控件,不会迭代查找子控件的子控件。
TComponent类的FindComponent方法在FComponents中查找返回指定名称的组件。该方法可以确定当前组件是否拥有(Own)指定名称的组件,其结果与指定查找的组件在创建时指定的Owner属性有关。窗体设计器上的创建的组件其拥有者为窗体,所以一般使用Self.FindComponent调用这个方法。该方法参数不区分大小写。
Parent属性是指定控件的父容器,控件只能在父容器范围内显示和移动。Owner属性是指定组件的所有者,它负责组件的创建和释放。在窗体编辑器中添加组件,则默认地将Owner属性设置为所属的窗体,所以用窗体的FindComponent肯定可以找到。如果动态创建组件,那么必须指定其Owner和Parent,才可以调用相应方法找得到。而且,如果你放上去的是TWinControl的继承类,那么用FindChildControl就可以找到,否则就找不到。
FindComponent非常简单,下面重点说说FindChildControl这令人纠结的方法【注1】。
这里先要了解下面几个基类:
1、TComponent 所有组件基类
2、TControl 运行时可视组件(TWinControl和TGraphicControl的基类)
3、TWinControl 可视且有窗体的组件的基类
TWincontrol就是Windows控件库的基类,从TWinControl继承下来的控件,都是具备有控件句柄的,也就是在Windows内部具备有唯一标记,能动态索引找到的。
Delphi使用两个列表来维护控件的子控件:FWinControls和FControls。前者保存有句柄的控件,即继承自TWinControl的控件;后者保存无句柄的控件,一般继承自TGraphicControl的控件。所以控件的ControlCount属性值为FWinControls.Count与FControls.Count之和。
//ControlCount属性的读取方法function TWinControl.GetControlCount: Integer;begin Result := 0; if FControls <> nil then Inc(Result, FControls.Count); if FWinControls <> nil then Inc(Result, FWinControls.Count);end;
在创建子控件时会调用Insert方法来将子控件添加到父容器的上述两个列表。
procedure TWinControl.Insert(AControl: TControl);begin if AControl <> nil then begin if AControl is TWinControl then begin ListAdd(FWinControls, AControl);//如果是TWinControl则添加到FWinControls列表 ... end else ListAdd(FControls, AControl);//否则添加到FControls列表 ... end;end;
下面再来看看FindChildControl的实现代码,可以看到FindChildControl只查找了FWinControls列表,这就是上面所说的它只查找可视且有窗体的组件,即继承自TWinControl类的组件。
function TWinControl.FindChildControl(const ControlName: string): TControl;var I: Integer;begin Result := nil; if FWinControls <> nil then for I := 0 to FWinControls.Count - 1 do if CompareText(TWinControl(FWinControls[I]).Name, ControlName) = 0 then begin Result := TControl(FWinControls[I]); Exit; end;end;
测试
整个测试界面
1、Self.FindChildControl(窗体调用)
测试代码:
//FindChildControl查找procedure TForm1.btn1Click(Sender: TObject);varc:TControl;begin memo1.Clear; Memo1.Lines.Add('FindChildControl查找'+Edit1.Text+'...'); c:=self.FindChildControl(Edit1.Text);//窗体调用 if(c=nil)then Memo1.Lines.Add('未找到!') else begin Memo1.Lines.Add('找到!'); Memo1.Lines.Add('父控件名称:'+c.Parent.Name); end;end;
测试结果:
(1)查找Button1(继承自TWinControl)
(2)查找Label1(继承自TGraphicControl)
(3)查找Button11(父容器为Panel1)
2、Panel1.FindChildControl
测试代码:
//FindChildControl查找——父控件调用procedure TForm1.btn4Click(Sender: TObject);varc:TControl;begin memo1.Clear; Memo1.Lines.Add('FindChildControl查找'+Edit1.Text+'...'); c:=panel1.FindChildControl(Edit1.Text); //panel1调用 if(c=nil)then Memo1.Lines.Add('未找到!') else begin Memo1.Lines.Add('找到!'); Memo1.Lines.Add('父控件名称:'+c.Parent.Name); end;end;
测试结果:查找Button11(父容器为Panel1)
3、Self.FindComponent
测试代码:
//FindComponent查找procedure TForm1.btn2Click(Sender: TObject);varc:TComponent;begin memo1.Clear; Memo1.Lines.Add('FindComponent查找'+Edit1.Text+'...'); c:=self.FindComponent(Edit1.Text);//窗体调用 if(c=nil)then Memo1.Lines.Add('未找到!') else begin Memo1.Lines.Add('找到!'); Memo1.Lines.Add('拥有者名称:'+c.Owner.Name); end;end;
测试结果
(1)查找Button1(父容器为Form1)、Button11(父容器为Panel1)
(2)查找Label1(继承TCustomLabel→TGraphicControl)、SpeedButton1(继承TGraphicControl)、Timer1(继承TComponent)
4、Panel1.FindComponent
测试代码:
procedure TForm1.Button6Click(Sender: TObject);varlbl:TLabel;c:TComponent;begin lbl:=TLabel.Create(Panel2);//动态创建并指定拥有者 lbl.Name:='Label6'; memo1.Clear; Memo1.Lines.Add('FindComponent查找Label6...'); c:=panel2.FindComponent('Label6');//拥有者调用 if(c=nil)then Memo1.Lines.Add('未找到!') else begin Memo1.Lines.Add('找到!'); Memo1.Lines.Add('拥有者名称:'+c.Owner.Name); end; {在窗体上显示还需加上以下代码} lbl.Parent:=Panel2;//Parent默认为nil,所以“无显示” lbl.Left:=50; //指定相对Parent的位置 lbl.Top:=50;end;
测试结果:
注1:纠结倒不是因为这个方法本身,而是一开始我就写了这个demo来测试这个方法的使用及其结果,当时也没注意TLabel不是继承自TWinControl(呵呵,平时都不怎么关注这些,自然以为这些普通控件都继承自TWinControl),结果估计是编译器出问题了,用Self.FindChildControl可以查询到Label1,用Panel1.FindChildControl也可以查询到Label(之前都是测试Label的),但就是在TabSheet.FindChildControl里不能查到相应Label,而且编译器也不能在FindChildControl里设断点,后来在网上看到说要将编译器的一个开关打开,但执行的结果还是一样。第二天,无意中看到TLabel不是继承自TWinControl,这就令人郁闷了,怎么之前能查询到呢?马上打开demo从新运行了一次,结果就这样突然都查不到了,真是令人蛋疼。好在最后验证了这个方法的原理及其实现过程。
- FindChildControl与FindComponent
- FindChildControl与FindComponent
- FindComponent
- RegisterClass和FindComponent
- BCB-控制多個元件的方法-FindComponent()
- 与
- 与
- “” 与 “”
- ##与#
- >> 与 > >
- :与::
- &与&&
- && 与 &
- [[与((
- >>与>>>
- *与++
- *与++
- ++与++
- 使用用JavaScript或Jquery获取标准下拉框的"选中值"和"选中文本"
- 关于 quartz 1.6.1 的一个死等问题,导致任务不执行
- Eclipse中查看源码
- 查看、修改oracle字符集,查看oracle版本
- ORA-01105: mount is incompatible with mounts by other instances
- FindChildControl与FindComponent
- Java System类
- android 获取手机电话号码
- ZTE-H108L路由设置方法
- emacs 工程管理工具 ede 的帮助文档
- MYSQL数据库:case when then
- uCOS-II邮箱和消息队列
- winform无法将文件“obj**”复制到“bin**” .
- SimpleDateFormat使用详解(转)