高分求救！怎样获取一个控件上有哪些子控件？

Question

比如在一个Form上放了一个GroupBox,GroupBox上放了若干个控件，我怎样才能知道在这个GroupBox上放了哪些控件呢？

Answer 1

怎么搞的，csdn有问题啊，我把这个贴子放到"VCL组件开发和应用"就看不到了高手帮忙哦！顶者有分！

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to GroupBox1.ControlCount-1 do
    ShowMessage(GroupBox1.Controls[i].Name);
end;

Answer 3

Function CheckControl(aParent:TWinControl):Boolean;
var
  I:Integer;
begin
  Result:=False;
  
  if aparent.countrol>0 then result:=true;  for i:=0 to aparent.ControlCount-1 do
         messagedlg(aparent.Controls[i].name,mtinformation,[mbok],0);
    end;

Answer 4

function TSkynewIOFile.face_Load_all(mWinControl: TWinControl;str:string):boolean;
var
  i:integer;
begin
if str='' then exit;
    for I := 0 to mWinControl.ControlCount - 1 do
    begin
      showmessage(mWinControl.Controls[I].name);
    end;  
      if mWinControl.Controls[I] is TWinControl then
        face_Load_all(mWinControl.Controls[I] as TWinControl,str); //递归查找
    end;
   Result:=true;
end;

Answer 5

怎么搞的，csdn有问题啊，我把这个贴子放到"VCL组件开发和应用"就看不到了
被斑竹移贴了吧，