可以透过 ComponentCount 来扫瞄 Form 底下的所有元件,进而控制这些元件,例如底下这个 sample code 可以把 Form 底下的 Edit 元件一口气改掉。
for (int i = 0; i < ComponentCount; ++i)
{
if (Components[i]->ClassNameIs("TEdit"))
((TEdit *)Components[i])->Text = "我被改了";
}
那若是要改某个元件底下的子元件呢? 例如要改 GroupBox 里头的所有 Label 要怎办呢? 这时就要用到 ControlCount 了。
for (int i = 0; i < GroupBox1->ControlCount; ++i)
{
if (GroupBox1->Controls[i]->ClassNameIs("TLabel"))
((TLabel *)GroupBox1->Controls[i])->Caption = "我被改了";
}
这样就可以了~
再补上一招,若是要修改名称有固定规则的元件又要怎么做呢? 例如要修改 Edit1~Edit10 的文字内容。这时我们可以叫出 FindComponent() 来帮忙
for (int i = 1; i <= 10; ++i)
{
((TEdit *)FindComponent("Edit" + IntToStr(i)))->Text = "我被改了";
}
类似地,也可以用 FindChildControl() 找到子元件
for (int i = 0; i < 10; ++i)
{
((TEdit *)GroupBox1->FindChildControl("Edit" + IntToStr(i)))->Text = "我被改了";
for (int i = 0; i < ComponentCount; ++i)
{
if (Components[i]->ClassNameIs("TEdit"))
((TEdit *)Components[i])->Text = "我被改了";
}
那若是要改某个元件底下的子元件呢? 例如要改 GroupBox 里头的所有 Label 要怎办呢? 这时就要用到 ControlCount 了。
for (int i = 0; i < GroupBox1->ControlCount; ++i)
{
if (GroupBox1->Controls[i]->ClassNameIs("TLabel"))
((TLabel *)GroupBox1->Controls[i])->Caption = "我被改了";
}
这样就可以了~
再补上一招,若是要修改名称有固定规则的元件又要怎么做呢? 例如要修改 Edit1~Edit10 的文字内容。这时我们可以叫出 FindComponent() 来帮忙
for (int i = 1; i <= 10; ++i)
{
((TEdit *)FindComponent("Edit" + IntToStr(i)))->Text = "我被改了";
}
类似地,也可以用 FindChildControl() 找到子元件
for (int i = 0; i < 10; ++i)
{
((TEdit *)GroupBox1->FindChildControl("Edit" + IntToStr(i)))->Text = "我被改了";
}