FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
||||
|
||||
Yo lo haría de forma ligeramente diferente, para que fuera mas sencillo agregar un label nuevo.
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin // Tecla abajo if (GetKeyState(VK_DOWN)<0) then begin // Si el ultimo laber no es verde muevo el color. if Label3.Font.Color <> clLime then begin Label3.font.color := Label2.font.color; Label2.font.color := Label1.font.color; Label1.font.color := clYellow; end end; end; |
|
|
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 |
|