Ver Mensaje Individual
  #4  
Antiguo 04-12-2017
strelok strelok is offline
Miembro
 
Registrado: sep 2017
Posts: 181
Reputación: 7
strelok Va por buen camino
Exclamation

No entiendo nada
Código:
    for I := 0 to sbPreguntas.ControlCount - 1 do   //Por cada GroupBox
    begin
        vGroupBox:=sbPreguntas.Controls[i];
        for j := 0 to vGroupBox.ControlCount - 1 do //Recorro sus componentes
        begin
            if 'TCheckBox' = vGroupBox.Controls[j].ClassName then //Si es un checkbox
            begin
                vCheckBox:=vGroupBox.Controls[j];
                if vCheckBox.Checked then         //Consulto si fue seleccionados
                   //Elimino el GroupBox
            end;
        end;

    end;
No puedo obtener los componentes: vGroupBox:=sbPreguntas.Controls[i]; no funciona
Además si intento eliminarlo, me explota, ya que los estoy recorriendo ¿quizás debo recorrer de forma decremental?
Agradecería si me puedes dar un ejemplo en código
Responder Con Cita