Ver Mensaje Individual
  #3  
Antiguo 01-06-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 27
jachguate Va por buen camino
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.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita