Как менять состояние объектов в групбоксе всех вместе сразу

[_Инженер_]

Можно ли как-то делать объекты в групбоксе Enabled и Disabled. Все сразу. Нет ли такого способа? Уж очень не охота по отдельности каждый.
Вообще придумал обходной маневр. Делаю сам групбокс Enabled:=false, а затем закрашиваю все надписи сереньким.
GroupBox3.Font.color:=clInactiveCap tion;
Получается похоже. Но нет рельефности неактивных элементов. Да и текст там одного цвета с фоном должен быть. Насколько я знаю, там какие-то картинки поверх отображаются.

[mihali4]

Можно ли как-то делать объекты в групбоксе Enabled и Disabled. Все сразу. Нет ли такого способа?

В цикле перебором всех компонентов формы с проверкой на принадлежность данному групбоксу, то есть
if Component[i].Parent.Name='GroupBox1' then
Component[i].Enabled:=...
...

[_Инженер_]

ммм...спасибо, попробую

[_Инженер_]

А как узнать i?

[evg_m]

можно просто Groupbox1.Enable:=

[mihali4]

Сообщение от _Инженер_

А как узнать i?

Делается примерно так:
(в этом примере перечислим все компоненты, принадлежащие GroupBox1)

var i: integer;
    cmp: TComponent;
begin
for i:=0 to ComponentCount-1 do
begin
cmp:=Components[i];
if cmp.HasParent and (cmp.GetParentComponent.Name='GroupBox1') then
ShowMessage(Components[i].Name);
end;
end;

[_Инженер_]

То есть ComponentCount содержит i. Спасибо за развернутый ответ.

[_Инженер_]

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

можно просто Groupbox1.Enable:=

можно, только внешний вид не меняется

[_Инженер_]

Components[i].name и
var cmp:TComponent;
cmp.name
не имеют property Enabled. Как теперь сделать компонент Enabled:=false, имея имя компонента. Прошу прощения, если вопрос глупый. Но все когда-то начинали, верно?

[Serge_Bliznykov]

для всех использованных в GroupBox1 объектов напишите примерно так:

var i: integer;
    cmp: TComponent;
begin
  for i:=0 to ComponentCount-1 do
  begin
    cmp:=Components[i];
    if cmp.HasParent and (cmp.GetParentComponent.Name='GroupBox1') then
    begin
      // ShowMessage(Components[i].Name);
      if cmp is TButton then
         (cmp as TButton).Enabled := false;
      if cmp is TEdit then
         (cmp as TEdit).Enabled := false;
     end;
  end;
end;