Campos booleanos en StringGrid con CheckBox

[[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!

[Jetzuvely21]

Les comparto el código final, esperando que a alguien le sirva.

Código Delphi [-]
//Procedimiento para saber cuando el checkbox creado en tiempo de ejecución se marca
//y desmarca.
procedure TForm1.ClickLabels(Sender: TObject);
var
ACheck: TCheckBox;
a : string;
begin
  if (Sender is TCheckBox) then
  begin
    ACheck := TCheckBox(Sender);
    if ACheck.Checked  then
      ShowMessage(ACheck.Name + ' SI está seleccionado')
    else
      ShowMessage(ACheck.Name + ' NO está seleccionado');
  end;
end;

Y el error que tenia, del porque no me tomaba el tag... era por esta instrucción.

Código Delphi [-]
NewCheckBox.Parent := StringGrid1;La cual cambie por
NewCheckBox.Parent := Self;

Y pues la lectura de la BD para estos campos de tipo booleano, se asignan al StringGrid por posicion (x,y). Y se hace la respectiva validación if campo.AsBoolean = True then...'1' else '0'.

Saludos!