4 respuestas en este tema

[JoAnCa]

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

[cHackAll]

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...

[Caral]

Hola
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.

[enecumene]

Una variación a lo de Caral:

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.

[JoAnCa]

Gracias a todos por sus respuestas

Me gusto mas la solucion de enecumene