Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-11-2005
Cosgaya Cosgaya is offline
Miembro
 
Registrado: jun 2005
Posts: 105
Poder: 19
Cosgaya Va por buen camino
Question 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,...
como puedo hacer para cambiarles una propiedad a todos los de fila
gracias
Responder Con Cita
  #2  
Antiguo 21-11-2005
andressanchez andressanchez is offline
Miembro
 
Registrado: jul 2005
Ubicación: Sando Domingo, Rep. Dom.
Posts: 109
Poder: 19
andressanchez Va por buen camino
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;
Responder Con Cita
  #3  
Antiguo 21-11-2005
Avatar de epuigdef
epuigdef epuigdef is offline
Miembro
 
Registrado: jul 2005
Posts: 196
Poder: 19
epuigdef Va por buen camino
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
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 09:29:30.


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
Copyright 1996-2007 Club Delphi