为什么我的TGroupBox的ComponentCount属性返回0?

时间:2012-03-29 01:32:51

标签: delphi

我有一个里面有几个组件的TGroupBox,我试图以这种方式设置GroupBox内所有组件的Enabled属性

  for i := 0 to GroupBox1.ComponentCount -1 do
   if (GroupBox1.Components[i]) is TWinControl then
     TWinControl(GroupBox1.Components[i]).Enabled:=False;

但是ComponentCount总是返回0,我缺少什么?

2 个答案:

答案 0 :(得分:16)

ComponentCount属性用于检索组件拥有的组件数,以迭代所有控件,您必须使用{{3 }和ControlCount属性。

答案 1 :(得分:0)

for i := 0 to GroupBox1.ControlCount - 1 do
   if (GroupBox1.Controls[i]) is TWinControl then
      TWinControl(GroupBox1.Controls[i]).Enabled:=False;