Hola gente de la comunidad clubdelphi, tengo problemas con los label
Lo que estoy haciendo es una secuencia de colores:
- En el form tengo 3 label con estos colores por defecto:
Label1 // Color Verde
Label2 // Color Amarillo
Label3 // Color Amarillo
- Lo que quiero es que al presionar la tecla flecha abajo (VK_DOWN) el color Verde del Label1 se pase al Label2 y el Label1 cambie al color a Amarillo.
Label1 // Color Amarillo
Label2 // Color Verde
Label3 // Color Amarillo
- Preciono nuevamente la misma tecla flecha abajo (VK_DOWN) por segunda ves, se pase el color Verde que esta en el Label2 al Label3 y el label2 se cambie a Amarillo.
Label1 // Color Amarillo
Label2 // Color Amarillo
Label3 // Color Verde
Lo que estoy haciendo es asi en un Timer con Intervalo 1
Código:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (GetKeyState(VK_DOWN)<0) then
begin
if Label1.Font.Color = clLime then
begin
Label1.font.color := clYellow;
Label2.font.color := clLime;
end;
end;
begin
if (GetKeyState(VK_DOWN)<0) then
begin
if Label2.font.Color = clLime then
begin
Label2.font.color := clYellow;
Label3.font.color := clLime;
end;
end;
end;
end;
end.
Mi problema es que al presionar la tecla flecha abajo (VK_DOWN) el Label3 automaticamente se pasa a color Verde y el Label1 y Label2 a amarillo, al presionar la tecla queda asi
Label1 // Color Amarillo
Label2 // Color Amarillo
Label3 // Color Verde
El problema es que no sigue la secuencia deseada
Espero que me ayuden porfavor, gracias por adelantado