Ayuda con TPanel

[FideRosado]

ahora estoy pensando en incorporar una funcion o procedimiento en un boton que me permita saber si entre los paneles , que he creado tengo un checkbox activo, pero no encuentro la forma de hacerlo,.. necesito ayuda con eso ...

estoy tratando pero no se me ocurre nada..

[ecfisa]

Hola FideRosado.

Código Delphi [-]
function ActiveCheckBoxes(SB: TScrollBox): Integer;
var
  i,j: Integer;
begin
  Result := 0;
  for i:= 0 to SB.ControlCount - 1 do
    if SB.Controls[i] is TPanel then
      for j:= 0 to TPanel(SB.Controls[i]).ControlCount-1 do
        if TPanel(SB.Controls[i]).Controls[j] is TCheckBox then
          Inc(Result, Integer(TCheckBox(TPanel(SB.Controls[i]).Controls[j]).Checked))
end;

Un ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  n: Integer;
begin
  n := ActiveCheckBoxes(ScrollBox1);
  if n > 0 then
    ShowMessage(Format('Hay %d casillas marcadas',[n]))
end;

Saludos

[FideRosado]

con ese mismo codigo , quiero q1ue el penel que es el padre del checkbox, que esta activado ,, o cuantos de ellos esten activados, se eliminen del ScrollBox1,he resuelto el padre segun el estado del checkbox, pero, la verdadd es que lo he intentado muchas veces con resultados negativos , alguna idea por parte de ustedes ..

[ecfisa]

Empezado por FideRosado

con ese mismo codigo , quiero q1ue el penel que es el padre del checkbox, que esta activado ,, o cuantos de ellos esten activados, se eliminen del ScrollBox1,he resuelto el padre segun el estado del checkbox, pero, la verdadd es que lo he intentado muchas veces con resultados negativos , alguna idea por parte de ustedes ..

Hola.

Código Delphi [-]
procedure TForm1.btnDelSelectPnlClick(Sender: TObject);
var
  i,j: Integer;
begin
  for i:= ScrollBox1.ControlCount - 1 downto 0 do
    if ScrollBox1.Controls[i] is TPanel then
      for j:= 0 to TPanel(ScrollBox1.Controls[i]).ControlCount-1 do
        if (TPanel(ScrollBox1.Controls[i]).Controls[j] is TCheckBox) and
           (TCheckBox(TPanel(ScrollBox1.Controls[i]).Controls[j]).Checked) then
          ScrollBox1.Controls[i].Free;
end;

Saludos

[FideRosado]

he probado el codigo , pero me da vateo ,
pondre aca algo parecido a lo que estoy tratando de hacer..

-scrolbox1
|
|-panel1
| |
| -checkbox1
|-panel2
| |
| -checkbox2
|-pane3
| |
| -checkbox3
|-panel4
| |
| -checkbox4


aca tengo representado como estan hubicados los elementos, pero cuando elimino uno , me doy cuenta que estamos haciendo la operacion dentro de un ford, el cual nos da error en list.bound cuando el cuenta..
y solo elimina 1 pero he intentedo eliminar mas de uno a la vez y dada ,.. creo que restando al for el i puede que salga..

rectifiquenme aver que sale de esto..

[FideRosado]

he probado algo parecido pero no me sale la verdad , será que se me esta escapando algo..mi mente y mi cuerpo esta cansado jejje, dormire un rato pero les pondre este cod que estoy provando , tirando piedras , como se dice

Código Delphi [-]
procedure TForm1.RzPanel15Click(Sender: TObject);
 var
  u,h:integer;
  n,m: string;
  var t:Tcomponent;
begin
  n :=  ActiveCheckBoxes(ScrollBox1);

if n <> '' then begin

    u:= CharCount(n,'|');
    for h:= 1 to u do begin
     m:= GetToken( n, '|' , h );
     // t.Name:= m;
      t := FindComponent(m);
          if  Assigned(t) then begin

             ShowMessage('se lozalizo el control ' + t.Name);
             //t.Free;

            end else begin

             ShowMessage('No se lozalizo el control ' + t.Name);

            end;
    end;
  end;
end;

acuerdence que yo aca envio una string con los nombres a los que voy a eliminar, separados por una barra vertival,, | ,
de esta forma se podra hacer diganme si hay variantes..

[ecfisa]

Hola.

Empezado por FideRosado

pero cuando elimino uno , me doy cuenta que estamos haciendo la operacion dentro de un ford, el cual nos da error en list.bound cuando el cuenta..

Por casualidad... ¿Invertiste el órden del for exterior del código del mensaje #10 dándole sentido creciente ?

Empezado por FideRosado

...
solo elimina 1 pero he intentedo eliminar mas de uno a la vez y dada ,.. creo que restando al for el i puede que salga

Debido a que no publicas el código que estás utilizando, no se que cuál fue el error de transcripción que provoca los fallos, pero te adjunto un demo para que puedas revisarlo con comodidad.

El demo utiliza sólo código que se ha sido tratado en este hilo, esta probado y funciona correctamente: Crea los paneles, los pinta cuando el CheckBox es seleccionado y elimina ninguno, uno, varios o todos acorde estén seleccionados.

Saludos

[FideRosado]

si, me parece que puse el forn en creciente , entonces eso elimina la posibilidad del error...