Ver Mensaje Individual
  #3  
Antiguo 11-06-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita