FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Secuencia de colores con Labels
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. 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 Última edición por Milworm99 fecha: 17-11-2017 a las 04:27:48. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Modificar Labels | emme_juegos | OOP | 1 | 13-12-2010 00:02:28 |
Restar dos labels | stynpy29 | Varios | 2 | 01-06-2010 16:44:00 |
labels y campos | josi | Varios | 1 | 15-05-2008 11:44:51 |
Transparencia en labels .NET | edalmasso | .NET | 0 | 11-04-2006 21:18:16 |
Labels Verticales | KAISSER | Impresión | 3 | 11-06-2003 10:07:02 |
|