No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Tu Propio inspector de Objectos.

 

Debes de adicionar esta unidad

delphi

uses TypInfo;

Ahora en este codigo, veras las propiedades del objeto que desees.

delphi

procedure ObjectInspector(
	  Obj   : TObject;
	  Items : TStrings );
	var
	  n        : integer;
	  PropList : TPropList;
	begin
	  n := 0;
	  GetPropList(
	    Obj.ClassInfo,
	    tkProperties + [ tkMethod ],
	    @PropList );
	  while( (Nil <> PropList[ n ]) and
	         (n < High(PropList)) ) do
	  begin
	    Items.Add(
	      PropList[ n ].Name + ': ' +
	      PropList[ n ].PropType^.Name );
	    Inc( n );
	  end;
	end;

Ejemplo de uso:

delphi

ObjectInspector( ListBox1, ListBox1.Items );

Saludos!