Управление внутренним содержимым TGroupBox, TPanel и других контейнеров, кроме формы...

[Человек_Борща]

Доброго времени!

Есть TGroupBox, в нем 5-6 TCheckBox.
Задачи:
1. Опция "Выделить все"
2. Опция "Отменить все"
3. Опция "Инвертировать выбор"

Проблемы:
Как TGroupBox может управлять своим содержимым?
Он контейнер, по тому у него есть Components и Controls свойства.
С Components вообще что-то не работает.

А вот с Controls получается:

procedure TCatViewForm.InvertSelectBtnClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ImgsGr.ControlCount - 1 do //ImgsGr - TGroupBox
  begin
   // if (Controls[i] is TCheckBox) then - не канает 
   if (Controls[i] is TComponent) then  //Сюда попадаем и переходим во внутрь
    begin
      if ((Controls[i] as TComponent) is TCheckBox) then //А сюда уже не поподаем. 

      begin
        if ((Controls[i] as TComponent) as TCheckBox).Checked then
          ((Controls[i] as TComponent) as TCheckBox).Checked := False
        else
          ((Controls[i] as TComponent) as TCheckBox).Checked := True;
      end;

    end;
  end;
end;

Как быть?


Списки, Form.ComnonentsCount - не предлагать, зачем геморой если компонент уже все это имеет и умеет.

[eval]

Так контролы чьи? форменные, а вам надо боксовые...

[eval]

Controls[i] is TComponent

это ваще шикарно он уже ТКонтрол ...

if ((Controls[i] as TComponent) as TCheckBox).Checked then
((Controls[i] as TComponent) as TCheckBox).Checked := False
else
((Controls[i] as TComponent) as TCheckBox).Checked := True;

... := not ...

[Аватар]

Так, например

procedure TForm1.Button5Click(Sender: TObject);
var i: Integer;
begin
  for i:=0 to GroupBox1.ControlCount-1 do
    if GroupBox1.Controls[i] is TCheckBox then TCheckBox(GroupBox1.Controls[i]).Checked:=True;
end;

Но Parent у этого CheckBox-а должен быть именно GroupBox1

[Человек_Борща]

Внутри TGroupBox лежат какие-то наследники TComponent. Как ими массово управлять?


UPDATe
Нашел фэил..

procedure TCatViewForm.InvertSelectBtnClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ImgsGr.ControlCount - 1 do //ImgsGr - TGroupBox
  begin
   // if (Controls[i] is TCheckBox) then - не канает 
   if (Controls[i] is TComponent) then  //Сюда попадаем и переходим во внутрь
    begin
      if ((Controls[i] as TComponent) is TCheckBox) then //А сюда уже не поподаем. 

      begin
        if ((Controls[i] as TComponent) as TCheckBox).Checked then
          ((Controls[i] as TComponent) as TCheckBox).Checked := False
        else
          ((Controls[i] as TComponent) as TCheckBox).Checked := True;
      end;

    end;
  end;
end;

А Controls[i]-то форменные

Солюшен:

procedure TCatViewForm.InvertSelectBtnClick(Sender: TObject);
var
  i: Integer;
begin
  with ImgsGr do
  begin
    for i := 0 to ControlCount - 1 do
      if (Controls[i] is TCheckBox) then
        TCheckBox(Controls[i]).Checked := not TCheckBox(Controls[i]).Checked;
  end;
end;

Тема закрыта. Вопрос решен.

[Аватар]

if GroupBox1.Controls[i] is TCheckBox then тра-ля-ля
else if (GroupBox1.Controls[i] is TEdit) and (TEdit(GroupBox1.Controls[i]).Tag=15) then ...
и т.д.

Там не могут быть наследники просто TComponent, а именно TControl

[eval]

Но Parent у этого CheckBox-а должен быть именно GroupBox1

Они как бы в другом случае на GroupBox1 не находились бы.

[Аватар]

Они как бы в другом случае на GroupBox1 не находились бы

Почему же? Не прямо, а через другой контейнер. Бросить на GroupBox Panel, а на нее тот же CheckBox. А если у панели еще границы убрать

[eval]

Человек_Борща говорит что они именно в нем. А с панелями и др. контейнерами , конечно, надо рекурсию делать.
А еще проще сразу загнать их в какой список, и потом вот эти цыклы с приведением типов не делать., хотя если их там не много, то и ладно.