How can I change a group of objects at one time??

[wpflum]

Is there any way to globally change properties on groups of objects on a form?  I'm duplicating an existing program where the user can change the color of the font, screen and entry boxes so I'd like to be able to run a procedure that will change the colors for groups of TEDIT boxes and TLABLES at one time.  Can I group these together some how to do them all at once or is there some way to loop through all the TEDITS on a form so I can do it that way.


Bill

[typo]

You need to loop through the controls.

[Martin_fr]

There is ParentFont which is true.
So if you have 10 labels in a panel, and you change the color of the panels font => bingo


Otherwise
Tform.Controls

[wpflum]

You need to loop through the controls.

That's what I thought but I don't know how.

[wpflum]

There is ParentFont which is true.
So if you have 10 labels in a panel, and you change the color of the panels font => bingo


Otherwise
Tform.Controls

I don't want to change all of the controls to the same color so that wont work.  I'll look at the Tform.Controls

• to see if I can figure that out.

Thanks

[typo]

Well, you can namely change the desired property of each one or:

Code: [Select]

for i := 0 to ControlCount - 1 do
begin
  if Controls[i] is TLabel then DoSomething;
end;

[wpflum]

Ok, I can get to the controls using the TForm.Controls,  now how can I tell if the control is a TEDIT or TLABEL?? 

On a side note is there anywhere I can reference stuff like this so in the future I can read up on what a property does instead of just typing in the form name then a '.' to see the drop down of options that I have to then scroll through and hope I spot what I need??

[BlueIcaro]

This code shows how to change Caption property of a TLabel called Label2, of course you can change/access to other properties os the labels.

procedure TForm1.Button1Click (Sender: TObject );
var
  I: Integer;
  MyLabel: TControl;

begin
  For I:= 0 To Form1.ControlCount-1 Do
  Begin
      If Form1.Controls is TLabel Then
      Begin
         MyLabel := Form1.Controls;
         If MyLabel.Name = 'Label2' Then
         Begin
            MyLAbel.Caption:='Hola';
         end;
      end;
  end;
end;                 

/BlueIcaro

[wpflum]

Well, you can namely change the desired property of each one or:

Code: [Select]

for i := 0 to ControlCount - 1 do
begin
  if Controls[i] is TLabel then DoSomething;
end;

I tried this but I'm getting  an error saying the identifier TLable is not found, am I missing something in my uses clause?

[wpflum]

Doh..... helps if I spell TLABEL correctly instead of TLable.........

[BlueIcaro]

Do you have StdCtrls in you uses clause?

/blueIcaro

[wpflum]

Yea that's there.  I just spelled TLabel wrong 

Now it's working and I can blunder on to the next impasse. 

Thanks all.