Обикновено се налага да се забраняват/разрешават група контроли които
не са само от тип ТCheckBox и образуват логическа група.
Освен това обикновено те имат смислени имена, а не CheckBox1, CheckBox2 и т.н.
Например EditUserName, CheckBoxAllowUserLogin, ButtonОК и прочее.
procedure SetEnabledState(Enabled: boolean; Controls: array of TControl);
var
i: integer;
begin
for i:= Low(Controls) to High(Controls) do Controls.Enabled := Enabled;
end;
Използване:
SetEnabledState(false, [EditUserName, CheckBoxAllowUserLogin, ButtonОК]);