checkbox

[Lupita]

hola tengo varios checkbox y quiero hacer un proceso para guardar el evento checked y su caption pero no quiero estar repitiendo el proceso con cada uno por ejemplo if checkbox1.checked then asi hasta n

me podrian ayudar

[ixMike]

Empezado por Lupita

hola tengo...
...guardar el evento checked y su caption...
...me podrian ayudar

¿Podrías redactar mejor el mensaje? Porque lo que ahí pides no tiene mucho sentido. Y puntualiza (interrogaciones, comas, puntos...), se lee de forma más clara y ayuda a la comprensión.

[Lupita]

ok mira tengo muchos checkbox y quiero hacer esto

insert into PERM (P_CONSECUTIVO,MODULO,BOTON,checked)
values(:P_CONSECUTIVO,:MODULO,:BOTON,:checked)
ParamByName('P_CONSECUTIVO').asinteger := inc(i);
ParamByName('MODULO').asstring := menu ;
ParamByName('BOTON').asstring := checkbox1.caption;
ParamByName('checked').asinteger := ifThen(checkbox1.checked,0,1)

para cada uno y son como 23
como le podira hacer para no estar repitiendo eso las 23 veces
no se algo asi como checkbox[1].checked
la verdad no sep

[ixMike]

Podrías hacer algo así:

Código Delphi [-]
for n:=0 to Form1.ControlCount-1 do
  begin
  If Form1.Controls[n].ClassName='TCheckBox' then
    begin
    //...
    ParamByName('BOTON').asstring := (Form1.Controls[n] as TCheckBox).caption;
    ParamByName('checked').asinteger := ifThen((Form1.Controls[n] as TCheckBox).checked,0,1)
    end;
  end;

Salu2.

[Lupita]

ok gracias lo estoy probando si tengo una duda te comentare. Gracias

[*Caro*]

Hola Lupita, yo utilizaría un ChekListBox y en vez de recorrer todos los controles del formulario, recorres directamente tu CheckListBox como si fuera un arreglo. Puedes añadir los CheckBox que quieras en su propiedad Items del ChekListBox.

Código Delphi [-]
var
 j:Integer;
begin
  for j:=0 to CheckListBox1.Items.Count-1 do
   begin
     insert into PERM (P_CONSECUTIVO,MODULO,BOTON,checked)
     values(:P_CONSECUTIVO,:MODULO,:BOTON,:checked)
     ParamByName('P_CONSECUTIVO').asinteger := inc(i);
     ParamByName('MODULO').asstring := menu ;
     ParamByName('BOTON').asstring := CheckListBox1.Items[i];
     ParamByName('checked').asinteger := ifThen(CheckListBox1.Checked[j],0,1)
   end;
end;

Saluditos

[ixMike]

Empezado por Caro

Hola Lupita, yo utilizaría un ChekListBox...

Iba a recomendárselo, pero como en mi antigua versión de Delphi no aparece, no estaba seguro si venía con las nuevas o era un componente de terceros. Además, aunque en un principio sería más cómodo usar el CheckListBox, ahora ella tendría que adaptar todo su código.

Salu2