Обработчик для множества компонентов CheckBox Опции

[Buratino]

Пишу VCL Forms Application на С++ Builder XE4. На форме имеется большое количество CheckBox'ов. Есть ли способы их опроса , позволяющих избежать обращение к каждому из них по отдельности (как в примере)?

Код

    
if (CheckBox1->Checked == true)
    {
    signal1 = 1;
    Label1->Font->Color = clLime;
    }
    else
    {
    signal1 = 0;
    Label1->Font->Color = clBtnFace;
    }

    if (CheckBox2->Checked == true)
    {
    signal2 = 2;
    Label2->Font->Color = clLime;
    }
    else
    {
    signal2 = 0;
    Label2->Font->Color = clBtnFace;
    }

и т.д. .......

Сообщение отредактировал Buratino - Sep 26 2013, 08:47

[AHTOXA]

Ну например так:

Код

procedure TMainForm.Test();
var
  CheckBox : TCheckBox;
  Label : TLabel;
begin
  for i := 1 to 10 do
  begin
    CheckBox := TCheckBox(FindComponent('CheckBox' + IntToStr(i));
    Label := TLabel(FindComponent('Label' + IntToStr(i));
    if CheckBox.Checked then
    begin
      signal1 = i;
      Label.Font.Color := clLime;
    end
    else
    begin
      signal1 = 0;
      Label.Font.Color := clBtnFace
    end;
  end;
end;