problema para detectar el numero de fila en un stringgrid con checkbox

[[newtron]]

Hola de nuevo.

Yo creo que si en el CheckBox3Click preguntas por el tag del activecontrol te encuentras el número de linea.

Activecontrol.tag

Saludos

[kapcomx]

Muchas gracias Newtron, ecfisa gracias a su ayuda me ha quedado muy bien, es correcto lo que mencionaste Newtron, con activecontrol.tag obtengo el numero sin problema alguno.

mi checkbox3 quedo asi

Código Delphi [-]
 
procedure TForm3.CheckBox3Click(Sender: TObject);
var
nfila: Integer;
begin
nfila:=ActiveControl.Tag;

IF StringGrid2.Cells[3,nfila]='' THEN
ShowMessage('La tarea que selecciono esta vacia, Haga un clic sobre la tarea que quiere modificar')
else
begin
if (StringGrid2.Cells[4,nfila]='0') then
begin
queryng2x.Close;
queryng2x.SQL.Text:='update tareas set status=1 where folio=' + StringGrid2.Cells[3,nfila];
queryng2x.ExecSQL;
end;
if (StringGrid2.Cells[4,nfila]='1') then
begin
queryng2x.Close;
queryng2x.SQL.Text:='update tareas set status=0 where folio=' + StringGrid2.Cells[3,nfila];
queryng2x.ExecSQL;
end;

end;
end;

ahora investigare un poco lo de la imagen de la X para borrar una tarea, y cuando lo tenga listo les pongo el codigo. Para ver si a alguien le sirve.

Saludos....

[*Caro*]

Hola, otra forma de obtener la fila del stringGrid podría ser mediante las coordenadas:

Código Delphi [-]
var
 aCol, aRow : Integer;
 punto : TPoint;
begin
 GetCursorPos(punto);
 With StringGrid do
  begin
   MouseToCell(punto.X-ClientOrigin.X, punto.Y-ClientOrigin.Y, aCol, aRow);
   if (aCol>0) and (aRow>0) then
    begin
     Col := aCol;
     Row := aRow;
    end;
   showmessage(IntToStr(Row));
  end;
  ...........................................

Saluditos

[kapcomx]

Caro, te agradezo mucho tu respuesta, no la he probado aun, pero seguro que lo hare, no dudo nada que funcione correctamente.

Espero algún dia poder ayudarlos asi como ustedes me han ayudado a mi.

[Jetzuvely21]

Hola a todos...escribo en este hilo, ya que estoy tratando de implementar algo parecido.

He estado buscando en los foros acerca de como leer un campo boleano de una Base de Datos y mostrar su contenido en forma de checkbox en un StringGrid.Ya sea que el campo contega 1,0 (marcado/desmarcado) respectivamente,ya avancé algo. Muestro los datos en mi string grid y me aparecen ya como true/false. Pero no sé como indicarle que dependiendo del valor del campo me aparezca el checkbox y lo marque o desmarque . Tambien ya avancé algo en cuanto a dibujar los Checks en el grid.

Tomé una parte del código mostrado aqui,pero en la parte :

Código Delphi [-]
if (StringGrid2.Cells[4,i]='1') then    
NewCheckBox.Checked :=True   
 else     
NewCheckBox.Checked :=false ;

Leyendo el campo, siempre me aparece marcado.

Agradecería alguna sugerencia de la lectura de este tipo de campos para mostrarlos en StringGrid en forma de Checkbox. (Estoy en Delphi5,Sql Server) -Gracias!

[Casimiro Noteví]

Hola, aunque tu pregunta involucra a un grid y un checkbox, no tiene nada que ver con esta. Es mejor que crees un hilo nuevo para tratar tu tema exclusivamente,
este es un hilo ya solucionado de hace más de un año.
Gracias y saludos.