Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   nombrar a varios componentes (https://www.clubdelphi.com/foros/showthread.php?t=27448)

Cosgaya 21-11-2005 14:05:23

nombrar a varios componentes
 
hola a todos:
tengo una aplicacion con muchos objetos y queria saber como puedo hacer para cambiarles la propiedad a varios objetos a la vez. por ejemplo
unos se llama: fila1, fila2, fila3, fila4... otros columna1, columna2, columna3,...
:confused: como puedo hacer para cambiarles una propiedad a todos los de fila:confused:
gracias

andressanchez 21-11-2005 15:16:25

Espero que este codigo te sirva de algo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
   {Aquí aparece una estructura de bucle con la sentencia for.
   Sirve para repetir una operación tantas veces como se indique mediante un
   contador. En este caso el contador es i, que recorre desde 0 hasta el    número de componentes -1 que tenga el formulario; La palabra reservada do
   forma parte de la sintaxis de la estructura del bucle for.}

  for i := 0 to ComponentCount -1 do
    if Components[i] is TPanel then  //aqui se verifica el tipo de componente.
     //y con su propiedad tag se puede verficar a que fila pertenece
         if (TPanel(Components[i]).tag) = 0 then 
           begin
              {Pon tu código aqui}
           end
end;

epuigdef 21-11-2005 15:19:05

puedes recorrer los objetos del formulario con

Código Delphi [-]
 
for i := 0 to Form1.Components.count-1 do
Begin
if (Form1.Components[i] is TEdit) then
begin
 
end;
end;
Y dentro del if puedes castear el Form1.components[i] a TEdit y utilizar sus propiedades.

He puesto TEit de ejemplo pero puedes hacerlo con otros tipos de objeto. El truco está en hacerle el cast dentro del if.

Edu


La franja horaria es GMT +2. Ahora son las 08:18:17.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi