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....
