1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
int count = GroupBox->ControlCount;//récupération du nombre d'objets présents dans le GroupBox
int verif = 0; //variable servant au test
for (int i = 0;i < count;i++)//parcours des controles
{
AnsiString ClassName = GroupBox->Controls[i]->ClassName();//récupération du nom de classe de l'objet
if (ClassName.AnsiCompare("TCheckBox") == 0)//si l'objet est bien de type CheckBox
{
if (((TCheckBox*)GroupBox->Controls[i])->Checked)//si le CheckBox est coché
verif++;//incrément de la variable de test
}
}
if (verif > 1 || verif == 0)//si test indique l'absence de coche ou plus d'une coche
MessageDlg("Veuillez cocher une seule case",mtError,TMsgDlgButtons()<<mbOK,0);//erreur
else//sinon
MessageDlg("ça roule :D",mtInformation,TMsgDlgButtons()<<mbOK,0);//c'est bon |