Las ventanas abiertas en tu aplicación, ya están en la lista Screen.Forms, Screen.Datamodules, etc.
Por supuesto para cerrarlas, recorre el bucle a la inversa, o tendrás access violation... Código Delphi [-]for I:= Screen.FormCount-1 downto 0 do Screen.Forms[i].Free;
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Última edición por Casimiro Noteví fecha: 19-03-2016 a las 01:12:17.
|