Recursividad en campos

[jachguate]

Me parece que lo adecuado son los eventos OnChange. Tenes dos formas de enfrentarlo:

• Lo que te falta es lo que yo llamo una "bandera anti-recursiva".
  
  La idea es tener una propiedad o un miembro de la clase, que te indique si se está realizando una modificación. Digamos FAjustandoDatosRel, de tipo booleano. Al crearse la forma (o datamodule) esta bandera vale falso. Luego en los eventos OnChange "relacionados" en la recursividad indirecta algo como:
  
  

  Código Delphi [-]
  if FAjustandoDatosRel Then
    exit;
  If TaTareasPorcentajeAvance.Value = 100 Then
  Begin
    FAjustandoDatosRel := True;
    try
      TaTareasFechaSolucion.Value := Date ();
      TaTareasEjecutando.Value := 0;
    finally
      FAjustandoDatosRel := False;
    end;
  End;

  
  Igual aplicarias al otro método.
  
• La otra solución es simplemente hacer las asignaciones de manera "condicional". Es decir, en lugar de simplemente asignar 100 a TaTareasPorcentajeAvance, hacerlo solamente si el valor no es ya 100. Basta con añadir un if:
  

  Código Delphi [-]
    if TaTareasPorcentajeAvance.Value < 100 Then
      taTareasPorcentajeAvance.Value := 100;

Hasta luego.

[jachguate]

No me habia fijado en la segunda solución de lepe... pero asignar nil al evento también funcionaría a la perfección. Siempre que se restituya su valor en una clausula Try/Finally que envuelva todo lo que pueda fallar en el camino...

[yeseniahdz]

¡Hola!

Muchas gracias a los dos por su ayuda, que me fue de mucha utilidad; lo probe de las tres formas y funcionó bien, pero me quede con la última ya que es la más práctica.

Gracias nuevamente y hasta luego