Hola a todos
Pues eso, como puedo cambiarle el color a varios labels de una sola vez, con una instruccion o un ciclo, y no asignando el color a cada label, se que hay una forma recorriendo los controles, pero no recuerdo como es la sintaxis
Como cambiarle el color a varios Label a la vez
Comenzado por
JoAnCa
, may 11 2009 03:21
4 respuestas en este tema
#1
Escrito 11 mayo 2009 - 03:21
#2
Escrito 11 mayo 2009 - 03:38
Bueno hay dos opciones, la primera es una vez ordanedo el vector revises si el Vector[índice] es igual a Vector[índice +/- 1].
El segundo caso, si la salida debe tener el mismo orden al de entrada; de igual forma debes usar un vector auxiliar que lo has de mostrar, en el cual iras guardando los valores despues de revisar si no está presente...
El segundo caso, si la salida debe tener el mismo orden al de entrada; de igual forma debes usar un vector auxiliar que lo has de mostrar, en el cual iras guardando los valores despues de revisar si no está presente...
#3
Escrito 11 mayo 2009 - 03:40
Hola
Que tal asi:
Saludos
PD: De memoria, osea mala, cuidado.
Que tal asi:
delphi
var i, j:Integer; comp:TComponent; begin // recorrer los label for i := 1 to 10 do begin // en este caso 10 j := (i) comp := FindComponent('Label' + IntToStr(j)); // Modificar los label TLabel(comp).Color:= clRed; end;
Saludos
PD: De memoria, osea mala, cuidado.
#4
Escrito 11 mayo 2009 - 03:50
Una variación a lo de Caral:
Saludos.
delphi
var nIdx: Integer; begin for nIdx := 0 to Form1.ComponentCount - 1 do begin if Form1.Components[nIdx] is TLabel then TLabel(Form1.Components[nIdx]).Font.Color := clBlue; end;
Saludos.
#5
Escrito 12 mayo 2009 - 09:15
Gracias a todos por sus respuestas
Me gusto mas la solucion de enecumene
Me gusto mas la solucion de enecumene