BCB中控件數組的簡易實現

網上有控件數組實現的多個方法,今天發現了Delphi的一個簡單版本,欣喜而外,特翻譯成bcb.

1,若有多個相同類的控件,比方說,TEdit,為了簡化逐個操作,可通過其Index屬性.

2,若直接放在Form上,則用Components[]屬性.比如:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

for(int i = 0;i < Form1->ControlCount;++i)

{

if( dynamic_cast <TEdit *>(Form1->Components[i]) )

{

dynamic_cast <TEdit *>(Form1->Components[i])->Color = clRed;

dynamic_cast <TEdit *>(Form1->Components[i])->Text = IntToStr(i);

}

}

}

3,若將控件組成一起,用Panel容器,則使用Panel的Controls[]屬性,比如:

for(int i = 0;i < Form1->Panel1->ControlCount;++i)

{

dynamic_cast <TEdit *>(Form1->Panel1->Controls[i])->Color = clRed;

dynamic_cast <TEdit *>(Form1->Panel1->Controls[i])->Text = IntToStr(i);

}

特別聲明,非本人研究,僅為改寫.