Отключить все компоненты на Panel

[cybernewbie]

Здравствуйте,

Не могу понять где ошибся, подскажите где, есть панель, хотел отключить все компоненты на панели, на панели есть GroupBox, соответственно в них тоже нужно отключить компоненты.
В чём собственно ошибка, цикл проходит 1 раз и всё.
Если второй цикл удалить, то цикл работает правильно.

 for i:=0 to Form1.Panel4.ControlCount-1 do begin
 (Form1.Panel4.Controls[i]).Enabled:=false;
    while j<>(Form1.FindComponent(Form1.Panel4.Controls[i].Name) as TGroupBox).ControlCount-1 do begin
    ((Form1.FindComponent(Form1.Panel4.Controls[i].Name) as TGroupBox).Controls[j]).Enabled:=false;
    inc(j);
    end;
 end;

Вложенный цикл пробовал и for и т.д., результат один.
Заранее спасибо за любую помощь.

P.S. ранее я это делал, но сейчас где то допустил ошибку.

[macomics]

А чему равно j при первом входе в цикл while?
Почему во внутреннем цикле инкрементируется j1?

[cybernewbie]

Сообщение от macomics

А чему равно j при первом входе в цикл while?

Равно 0.

Сообщение от macomics

Почему во внутреннем цикле инкрементируется j1?

Редактировал прямо тут, ошибся, поправил в 1 сообщении.

[macomics]

Тогда такой вопрос. Разве циклы должны быть вложенные? По логике вы ищите в первом i для TGroupBox, а во втором перечисляете все j принадлежащие этой TGroupBox. Но при втором проходе j уже будет вне диапазона.

[cybernewbie]

Сообщение от macomics

Тогда такой вопрос. Разве циклы должны быть вложенные? По логике вы ищите в первом i для TGroupBox, а во втором перечисляете все j принадлежащие этой TGroupBox. Но при втором проходе j уже будет вне диапазона.

У меня просто не один групповой компонент, например несколько GroupBox, также есть ещё и другие компоненты.
По идее 1 цикл ищет компонент;
2 цикл ищет все компоненты внутри компоненты i.
Далее процесс повторяется.
Хотя я допустил ошибки:
1. Controls отсчитывается судя по всему от 1.
2. Второй цикл например имеет вхождение класс которого отличен от TGroupBox, т.е. нужна проверка на соответствие класса.

j:=1;
 for i:=0 to Form1.Panel1.ControlCount-1 do begin
 (Form1.Panel1.Controls[i]).Enabled:=false;
  if Form1.Panel1.Controls[i].ClassType = TGroupBox then
    while j<>(Form1.FindComponent(Form1.Panel1.Controls[i].Name) as TGroupBox).ControlCount do begin
    ((Form1.FindComponent(Form1.Panel1.Controls[i].Name) as TGroupBox).Controls[j]).Enabled:=false;
    inc(j);
    end;
 end;

Но не всё отключает, например label активен.

[cybernewbie]

Думал попробовать так:

while j<>(FindComponent(Panel1.Controls[i].Name) as Panel1.Controls[i].ClassType).ControlCount do begin

Выдаёт ошибку, хотя я просто заменил класс: TGroupBox
На: Panel1.Controls[i].ClassType

Тогда бы и проверка не понадобилась, да ещё и другие групповые компоненты бы отключались, например такие как panel и т.д.

[cybernewbie]

Сообщение от macomics

По логике вы ищите в первом i для TGroupBox, а во втором перечисляете все j принадлежащие этой TGroupBox

т.е. в "i" ищу компонент, в том числе и GroupBox, в "j" ищу другие компоненты внутри компоненты GroupBox, задумка была такой

[cybernewbie]

Цикл уже проходит полностью, но выключает не все компоненты. Label активен.

[cybernewbie]

Первый цикл, ищет все компоненты на Panel;
Второй цикл ищет компоненты внутри групповых компонент.
Всё что нашлось, отключается.

[cybernewbie]

Получилось