gracias por el detalle
.
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