¿Cómo cerrar una ventana emergente en Firemonkey?

5284 vistas

Las ventanas emergentes o PopUp dentro de FMX son considerados Ventanas modales, por lo tanto no tiene métodos ni propiedades para cerrar este menú (en las VCL se usa ClosePopup).
 
Para cerrar las ventanas emergentes en un formulario FMXForm1, utilice el objeto Screen (variable global) y las siguientes instrucciones:

delphi
  1. Screen.PrepareClosePopups(FMXForm1);
  2. Screen.ClosePopupForms;

El Objeto Screen nos permite obtener:
  • Formularios y Módulos de Datos creados por la aplicación.
  • El Formulario y Control activo dentro de ella.
  • El número de Formularios que tiene la aplicación.
  • Una lista de las pantallas en las que los formularios de la aplicación pueden aparecer y sus datos de coordenadas y dimensiones.