递归控件

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;