怎么样判断控件放在哪个TGroupBox或TPanel上面

Question

如
G1上放有
  B1
  B2
P1上放有
  E1
  E2
------------------------------------
问：
1、怎么样把G1上面的控件找出来？
      弄进ObjectList里去
2、怎么找出E1放在哪里？
      E1的“父亲”P1怎么得到
------------------------------------
不好意思
刚玩csdn
请高手们别介意分少
帮忙
3x

Answer 1

楼上说的没错
列出组件要个循环，比如
for i:=0 to g1.ComponentCount -1 do begin
  g1.Components[i].....//访问所有容器内的组件
end;

Answer 2

procedure TForm2.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to G1.ControlCount-1 do
    ListBox1.Items.AddObject(G1.Controls[i].Name,G1.Controls[i]);
end;