gracias por el detalle
![Wink](http://www.clubdelphi.com/foros/images/smilies/wink.gif)
.
Estaba intentando probar la unit que posteaste y me sale, a la hora de compilar:
Código Delphi
[-] ListBox1.AddItem( Screen.Forms[i].Caption, Pointer(Screen.Forms[i]));
Cita:
uprincipal.pas(182,75) Error: Incompatible type for arg no. 2: Got "Pointer", expected "TObject"
|
algo le falta o sobra
![Wink](http://www.clubdelphi.com/foros/images/smilies/wink.gif)