8 Shape cambiando de color en secuencia.
 

"Tolomeo se mudo al Polo Norte"

Hola
Jose, efectivamente, un timer.:)
Que problema con estos muchachos que se auto contestan.:D:D
Saludos

"Tolomeo se mudo al Polo Norte"

Hola
Me parece que este componente es un led muy interesante, revisalo, tal vez te sirva.
Saludos

"Tolomeo se mudo al Polo Norte"

"Tolomeo se mudo al Polo Norte"

Hola
Estaba intentando hacer algo como lo que necesitas con un solo timer, pero no pude, quizás usando un array seria posible, lo intente pero no me sale con los shape.
Bueno, de todos modos te pongo este ejemplo, tal vez te sirva de algo.
Es muy a lo novato, asi que no esperes mucho de el.:D
Saludos

"Tolomeo se mudo al Polo Norte"

Hola
Como he tenido la curiosidad me puse a trabajar sobre arrays.
Bueno aquí te dejo el ejemplo, se reduce el código mucho.
Se usa un solo Timer, como necesitas.
En cualquier momento llega algún Maestro y te lo arregla.:D:D
Saludos

"Tolomeo se mudo al Polo Norte"

Aca modifique tu programa para que tenga movimiento en ambos sentidos.

Hola
M
Gracias Crandel, esta muy bueno, me gusta la sencillez.
Se nota la mano del maestro.
Saludos

"Tolomeo se mudo al Polo Norte"

De nada amigos, solo vi en lo que estaban y ayude un poquito.

Feliz dia del padre para uds tambien :)

"Tolomeo se mudo al Polo Norte"

Se ocurren dos ideas que pueden quedar bien:

1. Seguir con el estilo de manejarlo con vectores haciendo igual como hizo Caral en el ejemplo 2. Y luego le asignas ese color al led seleccionado. Quedaria algo asi:

Código Delphi [-]
if i = posicion then Leds[i].Brush.Color := LedsColor[i]
               else Leds[i].Brush.Color := clGray; // o puedes definir una constante global de tu programa para este color

2. La otra opcion es definir tu propia clase TLed basada en TShape ya con la forma por defecto y le agregas dos propiedades: OnColor y OffColor.
Luego defines dos metodos: TurnOn, TurnOff para prender y apagar el led.

y te quedaria asi:

Código Delphi [-]
if i = posicion then Leds[i].TurnOn
                else Leds[i].TurnOff;

Saludos

Yo haría esto:

Código Delphi [-]
var
  Form1: TForm1;
  Arreglo: Array [0..7] of Integer = (1,1,1,1,0,0,0,0);


procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 7 downto 0 do begin
      with TShape(components[i]).Brush do begin
         case Arreglo[i] of
             0: color := clRed;
             1: color := clGreen;
         end;
      end;
  end;
end;

Salud OS

"Tolomeo se mudo al Polo Norte"

NO :D:D:D

Salud OS

"Tolomeo se mudo al Polo Norte"