BCB-控制多个元件的方法-FindComponent()

我们可以透过 ComponentCount 来扫瞄 Form 底下的所有元件，进而控制这些元件，例如底下这个 sample code 可以把 Form 底下的 Edit 元件一口气改掉。

Example:

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 = “我被改了”;
}

文章出处 : 点击打开链接