Control Timer

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[Delphius]]

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,

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[coso]]

o bien...

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
        if Shape1.Brush.Color = clRed then 
        Shape1.Brush.Color := clGreen else
        Shape1.Brush.Color := clRed;
end;

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[coso]]

personalmente, uso .ini's para grabar este tipo de datos... lo correcto y lo que se aconseja, por eso, es el registro. Saludos.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"