Delphi类的入门例子（8）: 遍历窗体中所有控件的函数

Delphi类的入门例子（8）: 遍历窗体中所有控件的函数2011-12-12 万一 //显示窗体中所有控件的函数

function GetCtrls（Control: TWinControl; List: TStringList）: Boolean;
var
 i: Integer;
 obj: TWinControl;
begin
 for i := 0 to Control.ControlCount-1 do
 begin
  obj := TWinControl（Control.Controls[i]）;
  List.Add（obj.Name）;

//如果控件中包含其他控件, 则递归调用

if obj.ControlCount > 0 then
  begin
   GetCtrls（obj, List）;
  end;
 end;
 Result := True;
end;

//调用测试

procedure TForm1.Button1Click（Sender: TObject）;
var
 list: TStringList;
begin
 list := TStringList.Create;
 GetCtrls（Self, list）;  {调用函数}
 ShowMessage（list.Text）; {显示窗体中所有控件的名称}
 list.Free;
end;