Tema: Como cambiar una propiedad en varios componentes a la vez!!
Ver Mensaje Individual
  #2  
Antiguo 13-11-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
  
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
 
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 var
 n:Integer;
 begin
 
  for n:=0 to Form1.ComponentCount -1  do
  begin
 
    if Components[n] is Tlabel then
    Tlabel(Components[n]).Color:=ClRed;
    end;
 
 end;

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita