FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
No consigo cerrar una ventana modal
Hola a todos, tengo un problemilla al cerra una pantalla, pasa olimpicamente de mi modalresult:=mrok y no se cierra nunca, tengo que salirme de la aplicación a las bravas (ctrl+alt+supr), eso lo me ocurre a veces y no logro encontrar una solución. Gracias de antemano.
Covadonga Aqui os pongo algunas partes de código por si siven de ayuda, si teneis alguna duda, preguntadme por favor. 1º el procedimiento al que llamo para crear la pantalla. procedure MuestraESAlmacen; Begin With TESAlmacen.Create(Application) do Try ShowModal; // la creo como modal Finally Free; end; end; 2º El procedimiento al que llamo pulsando un botón donde realizo un procedimiento y luego de digo el ModalResult. El procedimiento lo ejecuta, pero luego no cierra la ventana. procedure TESAlmacen.Salir; begin // la funcion as mensaje es una funcion propia que utiliza un messagebox if asMensaje('¿ Desea procesar estos movimientos de almacén ?'#13#10' (Si pulsa ''NO'', se cancelarán)', MB_YESNO + MB_ICONQUESTION) = idYES then begin TraspasaMovimientos; // función donde hago un proceso con unas tablas ModalResult := mrOK; // Aqui es donde el programa pasa de mi end else begin ModalResult := mrCancel; end; end; |
|
|
|