1 2 //--------------------------------------------------------------------------- 3 4 #include <vcl.h> 5 #pragma hdrstop 6 7 #include "Unit1.h" 8 //--------------------------------------------------------------------------- 9 #pragma package(smart_init) 10 #pragma resource "*.dfm" 11 TForm1 *Form1; 12 //--------------------------------------------------------------------------- 13 __fastcall TForm1::TForm1(TComponent* Owner) 14 : TForm(Owner) 15 { 16 } 17 //--------------------------------------------------------------------------- 18 19 void __fastcall TForm1::Button1Click(TObject *Sender) 20 { 21 for(int i=0;i<Form1->ComponentCount;i++){ 22 if(Form1->Components[i]->ClassNameIs("TCheckBox")){ 23 if(dynamic_cast<TCheckBox *>(Form1->Components[i])->Checked){ 24 //write your code here 25 } 26 } 27 } 28 } 29 //--------------------------------------------------------------------------- 30