循环TabSheet上的所有组件

Question

我有以下代码循环在我的标签页上给定选项卡上的所有组件。 我已经尝试了许多在网上找到的相同代码的变体，但我根本无法让它工作。 首先，我检查它是否是正确的选项卡 - 即可行。 然后我检查看看有多少个组件 - 这是行不通的。它说0组件，即使我现在有2个面板总共有9个复选框。

procedure TfrmHsUsers.pagUsersClick(Sender: TObject); 
var 
    i: integer; 
    Fieldname: string; 
begin 
    if pagUsers.Properties.ActivePage.Name = 'tabProgram' then 
    begin 
ShowMessage(IntToStr(pagUsers.Properties.ActivePage.ComponentCount)); 
     for i := 0 to pagUsers.Properties.ActivePage.ComponentCount - 1 do 
     if (pagUsers.Properties.ActivePage.Components[i]) is TcxDbCheckBox then 
      begin 
      Fieldname := TcxDbCheckBox(pagUsers.Properties.ActivePage.Components[i]).DataBinding.DataField; 
      TcxDbCheckBox(pagUsers.Properties.ActivePage.Components[i]).Enabled := Settings.License.IsEnabled(Fieldname); 
      end; 
    end; 
end; 

对我的代码中可能出错的任何提示？

Answer 1

问题是，您正在循环使用Components属性。该表列出了选项卡中拥有的的组件。对于在表单设计器中创建的组件，表单是所有者。所以预计pagUsers.Properties.ActivePage.ComponentCount为零，因为表单上唯一拥有任何内容的东西就是表单本身。

您需要使用ControlCount和Controls[]来迭代选项卡表的子代。简单地将ComponentCount全部替换为ControlCount，并且同样用Controls[]替换Components[]。

请注意，ControlCount和Controls[]属性只给予直接子项。既然你有面板，你最有可能将面板作为选项卡的子项，并将复选框作为面板的子项。所以你需要迭代面板的子项。

我的answer here显示了一种方法来做到这一点。如果您使用我在那里提供的代码，那么您对复选框的迭代可以写得非常简单：

TabSheet := pagUsers.Properties.ActivePage; 
for CheckBox in TControls.Enumerator<TcxDbCheckBox>(TabSheet) do 
    ....