Comprobar que todas las checkbox de un Groupbox estan checked

[[David]]

Hola

Tengo un formulario, con dos GroupBox ( este componente, bien podía ser un panel por ejemplo), en uno tengo varios checkbox, y en el otro pues hay otros.

Quiero hacer dos cosas, la primera y más importante es comprobar de una forma rápida y logica que alguno de los checkbox esta checked.
and ... and not checkboxN.checked then
// Mensaje: Todos los checkbox estan desmarcados, no se puede realizar el proceso.
[/delphi]

Esta manera no me gusta, tiene que haber una forma mejor, que sea del tipo este.

Para todos los checkbox incluidos en el GroupBox1, si todos checked = False, muestro mensaje : "Hay que marcar al menos una opción"

Lo segundo que quiero hacer es parecido, es simplemente, poner un checkbox en cada groupbox, con la opcíon marcar/desmarcar todas.
Si se marca, pues todas las checkbox del Groupbox correspondiente estaran marcadas.

Puedo hacer esto

Código Delphi [-]
if CheckboxDesmarcarTodos.checked then
begin
Checkbox1.checked := true;
checkbox2.checke := true;
......

checkboxN.checked := true;
end;

esta forma de hacerlo tampoco me gusta, quiero algo del tipo.

Para una checkbox del Groupbox1, if checkboxMostrarTodo.cheked, pues todas cheked.

[*Caro*]

Hola David, tienes que recorrer todos los controles que tienes dentro de tu GroupBox, preguntar si es un CheckBox y haces las operaciones que necesites, ejemplo.

Código Delphi [-]
var
 i, cont : Integer;
begin
 cont := 0;
 for i:=0 to GroupBox1.ControlCount-1 do
  begin
   if (GroupBox1.Controls[i] is TCheckBox) then
    if TCheckBox(GroupBox1.Controls[i]).Checked then
     inc(cont);
  end;
 if cont=0 then
  showmessage('Ningun CheckBox esta marcado');

Ahora para marcar todos o desmarcar todos, sería mejor que tu checkbox que haga eso este fuera de tu GroupBox asi haces menos controles.

Código Delphi [-]
procedure TFPrincipal.CheckBoxMarcarClick(Sender: TObject);
begin
 for i:=0 to GroupBox1.ControlCount-1 do
  begin
   if (GroupBox1.Controls[i] is TCheckBox) then
    TCheckBox(GroupBox1.Controls[i]).Checked := CheckBoxMarcar.Checked;
  end;
end;

Pero también podías haber usado un CheckListBox.

Saluditos

[[AzidRain]]

ahi ta la respuesta..sin mucho problema.