Cita:
Empezado por newtron
Hola de nuevo.
A ver si esto te sirviera:
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
N: SmallInt;
begin
for N := 0 to ComponentCount -1 do begin
if Components[N].Name = 'Edit1' then begin
(Components[N] as TEdit).width := 100;
end;
end;
end;
Igual que modificas las propiedades de un edit puedes cambiar las propiedades de cualquier control, incluido el formulario.
Saludos |
Por seguridad, en lugar de comparar por el nombre, se debería comparar por el tipo/clase al que pertenece. En lugar de esto:
Código Delphi
[-]if Components[N].Name = 'Edit1' then begin
Mejor de esta forma:
Código Delphi
[-]if Components[N] is TEdit then begin
Si el "Edit1" es una TLabel, por ejemplo, se produciría un error "gordo".
No sé si todo el mundo nombra los componentes según su clase, pero es más seguro la opción que he citado, creo.