- procedure TfrmMain.SetColorOfControlsInPanel(_Panel : TPanel; _Color : TColor);
- var
- I : Integer;
- Pnl : TPanel;
- begin
- For I := 0 to ComponentCount-1 do
- begin
- if (Components[I] is TPanel) then
- begin
- Pnl := (Components[I] as TPanel);
- if (Pnl = _Panel) then
- begin
- Showmessage(IntToStr(Pnl.ComponentCount));
- end;
- end;
- end;
- end;