Concatenar CheckBox

[novice]

Muchas gracias a todos funciono muy bien

[roman]

Empezado por novice

Muchas gracias a todos funciono muy bien

Pues de nada. Pero sería agradable que dijeras finalmente qué opción tomaste. Si usaste FindComponent prometo no "regañarte"

// Saludos

[novice]

Jajajajaja, use la de maeyanes con tu modificacion en:

Check := TCheckBox(Components[i]);

todo funciono excelente gracias por el apoyo!!

[Chente(rMan)]

Gracias, ya lo estoy aplicando en uno de mis códigos, este código me pone en false la propiedad checked de mis checkbox, que son como 30.

Código Delphi [-]
var
  Check: TcheckBox;
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[i] is TCheckBox then
      begin
        Check := TCheckBox(Components[i]);
        Check.Checked := False;
      end

¿Como le hago para decirle que quiero que solamente lo aplique del checkbox16 al checkbox24?, para no tener que utilizar el FindComponent.


Saludos.

Vicente López.

[roman]

Podrías asignar a cada CheckBox el número que le corresponda en su propiedad Tag (esto en el inspector de objetos) y cambiar la condición a:

Código Delphi [-]
if (Components[i] is TCheckBox) and (Components[i].Tag in [16..24]) then

// Saludos

[Chente(rMan)]

Muchas gracias lo voy a intentar.



Saludos.

Vicente López.

[Ade]

Hola a todos, tenia el mismo problema, no conseguia limpiar los checkbox que estaban en un GroupBox con un bucle, y al ver este hilo halle la solucion, dejo mi funcion por si alguien la necesitara:

Código Delphi [-]
procedure TProveedores.LimpiarCheckbox(OpcionesGroupBox: TGroupBox);
var
   I:integer;
   ChildControl: TControl;
begin
     for I:=0 to  OpcionesGroupBox.ControlCount-1 do
          begin
          ChildControl := OpcionesGroupBox.Controls[i];
           if ChildControl is TCheckBox then
             //cambio la propiedas checked del tcheckbox
             TCheckBox(ChildControl).checked:=false;
     end;
end;

si alguien ve algun error o mejoria por favor me lo comente
gracias