Un Evento comun, distintas variables

[[FGarcia]]

Tienes razón Dec!

De hecho era un copiar y pegar del codigo entre comentarios que funcionaba Ok, no me fije que el Check no existia en el otro codigo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 i,j: integer;
begin
  {/* Adaptacion de este hilo
      http://www.clubdelphi.com/foros/show...light=checkbox
  */}
  for i:= 0 to GroupBox1.ControlCount - 1 do
    if GroupBox1.Controls[i] is TPanel then
      with TPanel (GroupBox1.Controls[i]) do
        for j:= 0 to ControlCount - 1 do
          if Controls[j] is TCheckbox then
            if (Controls[j] as TCheckBox).Checked then
              Memo1.Lines.Add((Controls[j] as TCheckBox).Name  + ' = True')
            else
              Memo1.Lines.Add((Controls[j] as TCheckBox).Name  + ' = False');
end;

La aplicacion tiene dos paneles Panel1 y Panel2 ¿como haria un recorrido individual de cada uno de ellos para saber si mas de un checkbox esta seleccionado en cada panel?

Adjunto el codigo completo ya corregido. Sigo escuchando. Gracias.

p.d. En el mensaje antepenultimo tambien esta el codigo original. No encuentro como eliminar el zip para que no se repita.

[dec]

Hola,

Si puedes recorrer los componentes situados en un panel... de la misma manera puedes recorrer el de los situados en otro. Claro está, primero recorrerías los de uno y luego los del otro. Pero, ¿dónde encuentras la dificultad? Seguro que se me escapa algo.

PD. Respecto de quitar el zip... fíjate que en el formulario de edición del mensaje hay un botón de nombre "Manejar adjuntos" o algo así... pues sólo tienes que pulsar sobre el botón, se te abrirá una ventana desde la que podrás añadir nuevos adjuntos, borrar los ya incluidos, etc.

[[FGarcia]]

Bueno, mira la dificultad que encuentro para recorrer el panel es que de acuerdo al codigo que puse yo busco un componente de tipo TPanel, asi como esta no importa si hay uno, dos o mas paneles el ciclo los recorrera todos. Entonces de ahi que supongo que debo buscarlos por nombre y entonces recorrer cada uno, como dices tu algo se me esta escapando que no logro entenderlo.

Lo del archivo adjunto fijate que no es en la parte que dices, es desde las preferencias de usuario (menu User CP) Nunca la habia visto a detalle.

[dec]

Hola,

Lo del archivo adjunto fijate que no es en la parte que dices, es desde las preferencias de usuario (menu User CP) Nunca la habia visto a detalle.

Nope. Ahí puedes ver tus archivos adjuntos, y, tal vez borrarlos, pero, en los formularios de edición de los mensajes, debajo del "textarea" principal (o sea, donde se escriben los mensajes) hay unas "opciones adicionales". Ahí es donde digo que está el botón "Gestionar archivos adjuntos".

Lo que pasa es que donde tú dices gestionas todos tus adjuntos, de todos tus mensajes, pero, donde digo yo gestionas los adjuntos del mensaje que estés editando nada más. Míralo y verás que es así... ¡o me corto la coleta!

[[Caral]]

Hola
Perdón que me meta en esto.
No entiendo la razón del programa, para que sirve o va a servir?.
Lo digo por que me parece muy extraño que se hable de variables y luego de recorrido de componentes.
Me parece que seria interesante saber que se busca con el programa, asi se podria aportar algo, aunque sea poco.
Saludos

[[FGarcia]]

Si tienes razon Caral! empezamos con como saber el estado de un checkbox, y despues vimos que se podian hacer otras cosas. Bueno el programa en si es otro, aqui solo estoy tratando de resolver algunas dudas con respecto al uso del checkbox y de paso manejando otros metodos como en este caso el recorrido de componentes, habilitar y deshabilitar elementos de un radiogroup tambien base al estado de un checkbox y mostrar estados de los checkboxes en un memo o sea que tal vez salga algo didactico al final. Ya se que tu tienes a "NOVATO" como Marca Registrada de Caral Enterprises pero aun asi te invito a ver y hacer tus aportes.

[[Caral]]

Hola
Pues la verdad no se en que puedo colaborar en este Tutorial.
Lo poco que pueda, con gusto, pero no se en que?, me dices?
Saludos

[[FGarcia]]

Manos a la obra!

Mira aqui en el evento OnClick del checkbox1 es donde se origino todo. La idea original era que al dispararse el evento Onclick del CheckBox1 se guardara el estado en una variable sin embargo si son varios checkbox se puede usar la caracteristica de codigo compartido de los componentes; es decir que el codigo se escribe una sola vez y lo usan varios CheckBox (en este caso, podrian ser Buttons o algun otro) yo pensaba usar una variable y eso me causaba el disgusto de como saber que checkbox era el que habia sido seleccionado y entonces como saber en que variable se guardaria. Para dos o tres no es mucho problema repetir el codigo -aun asi seria una mala practica ¿no?- pero si son mas 10, 15 30 etc. Bueno eso lo resolvio -en un hilo que menciono dentro del zip- Lepe y si lo observas muy elegantemente.

Código Delphi [-]
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  { http://www.clubdelphi.com/foros/show...d=1#post250309
   Todos los checkboxes comparten este evento.
   Usamos el moldeo de tipo "TCheckbox(Sender)" para decirle al 
    compilador que siempre será un TCheckbox el que genere
    este evento
   Usar el Inspector de Objetos para asignar valor a Tag
  }
  
  checados[TCheckbox(sender).Tag] := TCheckbox(Sender).checked;
end;