Recorrer propiedades de un componente
 

Hola amigos,

Quiero recorrer todos los componentes que hay en un formulario, y por cada uno de los componentes sus propiedades.

for i:= 0 to ComponentsCount -1 do begin
components[i]..........................
end;

Recorrer componentes no es complicado, pero ¿ y las propiedades?
¿Existe un objeto propertys, o algo parecido?
¿alguna idea?


Gracias

Hola,

Creo que deberías informarte sobre la unidad la unidad "TypInfo".

Hola gallipi, nose mucho sobre esto, pero te pongo un ejemplo sobre lo que explica el amigo Coso en otro hilo

Lo que hace es colocar todas las propiedades del ListBox1 en el mismo ListBox1.

Código Delphi [-]
Uses
TypInfo;
......
......
procedure TForm1.GetPropertyList(Obj:TObject;Filter: TTypeKinds);
var
 PropList : PPropList;
 count,i  : Integer;
begin
  ListBox1.Clear;
  Count := GetPropList(Obj.ClassInfo, Filter, nil);
  GetMem(PropList, Count * SizeOf(PPropInfo));
  GetPropList(Obj.ClassInfo, Filter, PropList);
  for i:=0 to Count -1 do
    ListBox1.Items.Add(Proplist[i].Name);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 GetPropertyList(ListBox1, [tkInteger, tkChar, tkEnumeration, tkFloat,
    tkString, tkSet, tkClass, tkMethod, tkWChar, tkLString, tkWString,
    tkVariant, tkArray, tkRecord, tkInterface, tkInt64, tkDynArray]);
end;

el hilo es este http://www.clubdelphi.com/foros/show...=findcomponent , ahi puedes encontrar mas cosas que te pueden servir.

Saluditos

Si con o de antes no te acalras, tienes un par de Tips en mi página web (sección de tips), que explican cómo acceder a las propiedades utilizando RTTI y como modificarlas (si te hace falta) también utilizando RTTI. El código está documentado y comentado.

Eso sí, te en cuenta que sólo podrás acceder a las propiedaes que estén definidas como published.

¡Hola!

Anexé en la parte inferior de este mensaje una copia de mi biblioteca personal de funciones "GH Freebrary" (llamada "Interfaz GH" anteriormente). Es para Delphi 7, pero incluye el código fuente.

En la unidad GHFObjects.pas encontrarás una función llamada ghEnumerarPropiedades, que hace tiempo creé para el mismo propósito. Un buen ejemplo de cómo puedes "enumerar" (recorrer) las propiedades de un objeto, utilizando esa función, lo tiene otra de las rutinas de la misma unidad, llamada ghCopyProps. Se utiliza una función de retrollamada (call back) que debes crear para recibir a cada una de sus propiedades y hacer con ellas lo que necesites.

Siéntanse todos con la libertad de descargarla, es literalmente la obra (aún inconclusa) de mi vida. Y me sentiré bien por recibir sus opiniones al respecto para ayudar a mejorarla. La licencia es sin costo y así pienso mantenerla. Casimiro me está ayudando a evaluar varios aspectos de esta biblioteca.

Conviene aclarar que me encuentro cambiando todos los nombres de las funciones al idioma inglés y que el tipo TghFuncionEnumeracion cambiará significativamente en las siguientes versiones. Para quienes, después de verla, se planteen su uso por tiempo prolongado. Documentación no tiene todavía, es algo que pienso comenzar pronto, pero estoy abierto a dar cualquier orientación que se requiera.

Espero no se vea esto como "spam", es algo que deseo compartir con la comunidad desde hace mucho tiempo. Esperaba a que estuviese 100% afinada y documentada, pero al paso que voy envejecería primero. :p

Saludos.

Al González. :)

Gracias a todos por las respuestas!!!

Que alegria da cuando tienes tantos ejemplos donde elegir!!


Gracias

Me la he bajado para echarle una ojeada! Parece interesante :P

Saludos