Ver Mensaje Individual
  #2  
Antiguo 12-07-2008
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 27
Delphius Va camino a la fama
Hola JoseFco,
Yo diría que se sobra un Timer. Tranquilamente se puede hacer con uno sólo.

La idea es cambiar el color a cada cierto tiempo, no necesariamente iguales ¿no?
Lo que yo haría es que en el evento OnTimer se disponga de una sentencia condicional y en base a ello se tome tanto el tiempo y se cambie el color.
El truco está en tener una variable bandera que nos determine si hacer una y otra cosa:
Código Delphi [-]
if EsRojo
   then begin
          shape.Brush.Color := clRed
          // tomamos el tiempo para el del otro color
          Timer1.interval := ...
          end
   else begin
         shape.Brush.Color := ...
         // tomamemos el tiempo para el color rojo
        Timer1.interval := ....
        end;

// cambiamos la condición:
EsRojo := NOT EsRojo;

¿Se entiende la idea?

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita