gpt4 book ai didi

delphi - 循环 TabSheet 上的所有组件

转载 作者:行者123 更新时间:2023-12-03 15:42:10 25 4
gpt4 key购买 nike

我有以下代码,它应该循环我的选项卡上给定选项卡上的所有组件。我尝试了在网上找到的相同代码的许多变体,但我根本无法让它工作。首先我检查它是否是正确的选项卡 - 有效。然后我检查有多少组件 - 这不起作用。它说 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;

有什么提示可以说明我的代码中可能有什么问题吗?

最佳答案

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

您需要使用 ControlCountControls[] 来迭代选项卡的子项。只需将 ComponentCount 的所有使用替换为 ControlCount,同样将 Components[] 替换为 Controls[]

请注意,ControlCountControls[] 属性仅提供直接子级。由于您有面板,因此很可能将面板作为选项卡表的子项,并将复选框作为面板的子项。因此,您需要迭代面板的子项。

我的answer here展示了一种方法来做到这一点。如果您使用我在那里提供的代码,那么您对复选框的迭代确实可以非常简单地编写:

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

关于delphi - 循环 TabSheet 上的所有组件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15463753/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com