Vfrdtyky

I've got a form with a bunch of controls on it, and I wanted to iterate through all the controls on a certain panel and enable/disable them.

I tried this:

var component: TComponent;

begin

  for component in myPanel do

    (component as TControl).Enabled := Value;

end;

But that did nothing. Turns out all components are in the form's component collection, not their parent object's. So does anyone know if there's any way to get all the controls inside a control? (Besides an ugly workaround like this, which is what I ended up having to do):

var component: TComponent;

begin

  for component in myPanel do

    if (component is TControl) and (TControl(component).parent = myPanel) then

      TControl(component).Enabled := Value;

end;

Someone please tell me there's a better way...

You're looking for the TWinControl.Controls array and the accompanying ControlCount property. Those are for a control's immediate children. To get grandchildren etc., use standard recursive techniques.

You don't really want the Components array (which is what the for-in loop iterates over) since it has nothing to do, in general, with the parent-child relationship. Components can own things that have no child relationship, and controls can have children that they don't own.

Also note that disabling a control implicitly disables all its children, too. You cannot interact with the children of a disabled control; the OS doesn't send input messages to them. To make them look disabled, though, you'll need to disable them separately. That is, to make a button have grayed text, it's not enough to disable its parent, even though the button won't respond to mouse clicks. You need to disable the button itself to make it paint itself "disabledly."

If you disable a panel, al controls on it are disabled too.

Recursive solution with anonymous methods:

type

  TControlProc = reference to procedure (const AControl: TControl);



procedure TForm6.ModifyControl(const AControl: TControl; 

  const ARef: TControlProc);

var

  i : Integer;

begin

  if AControl=nil then

    Exit;

  if AControl is TWinControl then begin

    for i := 0 to TWinControl(AControl).ControlCount-1 do

      ModifyControl(TWinControl(AControl).Controls[i], ARef);

  end;

   ARef(AControl);

end;



procedure TForm6.Button1Click(Sender: TObject);

begin

  ModifyControl(Panel1,

    procedure (const AControl: TControl)

    begin

      AControl.Enabled := not Panel1.Enabled;

    end

  );

end;

Here is a Delphi 2007 way:

procedure TForm6.ModifyControl(const AControl: TControl; const value: Boolean);

var

  i: Integer;

begin

  if AControl=nil then Exit;

  if AControl is TWinControl then begin

    for i := 0 to TWinControl(AControl).ControlCount-1 do

      ModifyControl(TWinControl(AControl).Controls[i], value);

  end;

  Acontrol.Enabled := value;

end;



procedure TForm6.Button1Click(Sender: TObject); 

begin 

  ModifyControl(Panel1, true);  // true or false

end;

Simply

Panel.Enabled := Value;

I know this post is a little old but I came here based on a search for the same information. Here is some C++ code that I worked out for anyone interested.

// DEV-NOTE:  GUIForm flattens the VCL controls

// VCL controls are nested.  I.E. Controls on a

// Panel would have the Panel as a parent and if

// that Panel is on a TForm, TForm's control count

// does not account for the nested controls on the

// Panel.

//

// GUIControl is passed a Form pointer and an index

// value, the index value will walk the controls on the

// form and any child controls counting up to the idx

// value passed in.  In this way, every control has a

// unique index value

//

// You can use this to iterate over every single control

// on a form.  Here is example code:

//

// int count = 0;

// TForm *pTForm = some_form

// TControl *pCtrl = 0;

// do

// {

//      pCtrl = GUIControl(pTForm, count++);

//

// }while(pCtrl);



TControl *GUIControl(TForm *F, int idx)

{

    TControl *rval = 0;

    int RunCount = 0;



    for(int i=0; i<F->ControlCount && !rval; i++)

    {

        TControl *pCtl = F->Controls[i];



        if(RunCount == idx )

            rval = pCtl;

        else

            rval = GUIChildControl( pCtl, RunCount, idx);



        RunCount++;

    }



    return(rval);

}



TControl *GUIChildControl(TControl *C, int &runcount, int idx)

{

    TControl *rval = 0;

    TWinControl *pC = dynamic_cast<TWinControl *>(C);

    if(pC)

    {

        for(int i=0; i<pC->ControlCount && !rval; i++)

        {

            TControl *pCtrl = pC->Controls[i];

            runcount++;



            if( runcount == idx)

                rval = pCtrl;

            else

            {

                TWinControl *pCC = dynamic_cast<TWinControl *>(pCtrl);



                if(pCC)

                {

                    if( pCC->ControlCount )

                        rval = GUIChildControl(pCtrl, runcount, idx);

                }

            }

        }

    }



    return(rval);

}