[eliasterrero]

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;