Campos booleanos en StringGrid con CheckBox

[[newtron]]

Hola.

Mira ahora este hilo a ver si te sirve.

(me está entrando complejo de índice )

Saludos

[Casimiro Noteví]

Empezado por newtron

Hola.
Mira ahora este hilo a ver si te sirve.
(me está entrando complejo de índice )
Saludos

Es que como se ha hablado de 'casi' todo, sólo hay que hacer una búsqueda y enlazar la respuesta

Es como la reunión de contadores de chistes, que en lugar de contarse los chistes, se indicaban el número:
Oye, conté el #15 y la gente se tronchaba de risa. Pues menos mal que no empezaste con el #28. Ja ja ja... sí, o el #31

Qué malo soy para los chistes

[[newtron]]

Empezado por Casimiro Notevi

Qué malo soy para los chistes

Pues la verdad es que no te veo en el club de la comedia.

[Jetzuvely21]

Gracias por contestarme a ambos jiji, y sip, hice la respectiva busqueda en los hilos, y precisamente del hilo que me comentas al ultimo me sirvió porque de ahi pude hacer lo que llevo.

El problema ahora es que cada que ejecuto el programa, entra al evento

Código Delphi [-]
  NewCheckBox.OnClick := ClickLabels; //Asignamos el evento

y en ese evento , aunque no le de click al CheckBox ya cuando se crea en mi forma, ambos eventos se ejecutan mostrandome los dos mensajes. Agregué la variable tag, al momento de crearlos.

Código Delphi [-]
procedure TForm1.ClickLabels(Sender: TObject); 
var vfila: Integer;
begin 
{with Sender as TCheckBox do   
begin    
ShowMessage(Caption);    
case Tag of     
1: ShowMessage('Accion especial para el primer ');     
2: ShowMessage('Accion especial para el segundo');     
end; 
end;}
 end;

Tambien probé lo del hilo:

Código Delphi [-]
procedure TForm3.CheckBox3Click(Sender: TObject); 
var nfila: Integer; 
begin 
nfila:=ActiveControl.Tag; <= Este tag lo defini al momento de crear el checkbox.  
IF StringGrid1.Cells[3,nfila]='' THEN 
ShowMessage('La tarea esta vacia, Haga un clic sobre la tarea que quiere modificar');  
end;

Pero aqui siempre el tag me lo ponea en 0 cuando hago click en el checkbox creado. Estoy segura que ando haciendo algo mal. Pero no veo que? >_<

Lo qe hago es dar click sobre el checkbox creado, pero no hace nada...
y el tag me lo pone siempre en 0. Gracias..

[Jetzuvely21]

Esto lo tomaré en cuenta para el guardado de mis campos.Y pues necesito checkbox creados de forma dinamica para agregarlos al StringGrid. Ahorita solo tengo el problema en como definir el evento para cada uno cuando de click sobre los checkbox creados.

He seguido las ligas, y googleado, pero no me está respetando los eventos definidos para cada uno.

Muchas gracias por tu interés.

[Jetzuvely21]

Buscando en los hilos, esto es lo que necesito, como bien explica Caro en una duda que ella tenía en las labels, lo mio con checkbox.

http://www.clubdelphi.com/foros/showthread.php?t=21387

Caro:"En este evento onclick me gustaria poder saber cual de los labels creados esta siendo presionado, quiero recuperar el nombre del label presionado, mi problema es que cada vez que hago click en los labels creados siempre me recupera el nombre del ultimo label creado".

Con la exepción de que cuando yo doy click en el checkbox creado no pasa nada ....solo al momento de ejecutar el programa..muestra los mensajes. Lo implementé asi, pero sigue sin funcionarme

Código Delphi [-]
procedure TForm1.ClickLabels(Sender: TObject);
begin
  if Sender is TCheckBox then
  case TCheckBox(Sender).Tag of
    1: ShowMessage('primer ');
    2: ShowMessage('segundo ');
    3: ShowMessage('tercero ');
    4: ShowMessage('cuarto');
  end;
end;

[Jetzuvely21]

Bueno, ya he logrado resolver mi duda, gracias a quienes prestaron interés y contestaron.
Se agradece!

[TiammatMX]

¡Hola!

Para leer el dato desde la tabla:

Código Delphi [-]
CheckBox1.Checked := Tabla.FieldByName('CampoBit1').AsBoolean;
.
.
.

CheckBoxn.Checked := Tabla.FieldByName('CampoBitn').AsBoolean;

Para guardarlo en una tabla, el valor lo convierto a entero, lo agrego a la sentencia SQL que lo insertará y ¡listo!...

Espero que te sirva.