自动生成控件,取得一些属性

Question

我在TabSheet上自动生成一个Tpanel,然后又在Tpanel上自动生成一些 TCheckBox,
现在我用下面代码得到Tpanel 的一些信息.但是我用同样的方法得不到 TCheckBox的信息,请教各位大侠...
得到 Tpanel 属性的代码:
  while i <= TabSheet1.controlCount - 1 do 
  begin
    if TabSheet1.controls[i] is Tpanel then
    begin
       ss := TabSheet1.controls[i].Name;   \\得到Name
       sss := TabSheet1.controls[i].Caption;  \\得到 Caption
    end;
  end;
  现在我想的就是能否用相同的方法得到 TCheckBox 的属性.注意TCheckBox 自动生
  成的时候 parent 是Tpanel. 谢谢...

Answer 1

找葫芦画瓢，从PANEL这个CONTAINER中去取不就可以了吗？

Answer 2

不能简单地以为parent是PANEL就算，应该看其建立时的OWNER。这个才是CHECKBOX的真正的主人哟