FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Como abortar correctamente un proceso que es interrumpido por el cierre del Form
Hola amig@s !
En el OnActivate de un Form llamo a un proceso que tarda algunos segundos en generar la pantalla que quiero mostrar.
Si el usuario, durante dicho proceso FormRepaint, hace click para cerrar el Form, de manera inmediata se llama a la rutina FormClose.
pero me he dado cuenta que al finalizar FormClose, prosigue con FormRepaint en el punto en el cual se interrumpió por el cierre del Form. Y finalmente, entre otras cosas, FormMain no queda a Nil. Como puedo entonces abortar correctamente FormRepaint dentro del proceso FormClose ?? O como se solucionaría esta problemática de la manera correcta ? He intentado meter toda el código de FormRepaint en un Try Except pero a pesar de ello no me produce ninguna excepción y por lo tanto no sale del bucle Try, prosiguiendo como indica antes en el mismo punto en donde se interrumpió por la llamada a FormClose. Gracias por vuestra ayuda.
__________________
Piensa siempre en positivo ! |
#2
|
||||
|
||||
Te respondo como lo haría yo. Esto no aborta el FormRepaint, pero por lo menos no te generará los errores de no liberar al form.
Variable global al form: PuedoCerrar : boolean; Código:
procedure TForm.FormActivate(Sender: TObject); begin Self.OnActivate := nil; PuedoCerrar := False; FormRepaint; PuedoCerrar := True; end; procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction); begin if (PuedoCerrar) then begin Action := caFree; FormMain := nil; end else Action := caNone; end; Última edición por duilioisola fecha: 28-08-2007 a las 14:19:57. |
#3
|
||||
|
||||
Gracias por responder.
No quiero que se impida el cierre del Form, que es lo que ocurriría con tu propuesta. Lo que quiero es que se pueda cerrar el form abortando el proceso FormRepaint.
__________________
Piensa siempre en positivo ! |
#4
|
||||
|
||||
Por cierto, en estos casos, Bienvenido al Club !
__________________
Piensa siempre en positivo ! |
#5
|
||||
|
||||
¿Y que haces dentro de FormRepaint? Si es un proceso normal, el cierre no se debería de producir hasta que terminara el FormRepaint, así que supongo que estas utilizando Application.ProcessMessage ¿es así?
Explicate un poco mas |
#6
|
||||
|
||||
Gracias por la bienvenida... he utilizado el foro para resolver muchos de mis problemas y pensé que sería bueno escribir algo para los demás.
Otra opción con 2 variables globales... en este caso, se llena QuieroCerrar, pero no se cierra y después del FormRepaint, si es True, se cierra. Nuevamente, no aborta el FormRepaint, pero cerrará el form correctamente después de todo. Espero que se parezca a lo que buscas. (para acelerar el cierre, quizás puedas usar la variable global PuedoCerrar dentro del procedure FormRepaint para NO ejecutar ciertas cosas que tarden mucho. ej. pseudocodigo Código:
procedure FormRepaint begin if PuedoCerrar then [primera cosa a realizar] if PuedoCerrar then [seguinda cosa a realizar] if PuedoCerrar then [tercera cosa a realizar] if PuedoCerrar then [primera cosa a realizar] end Variable global al form: PuedoCerrar : boolean; QuieroCerrar : boolean; Código:
procedure TForm.FormActivate(Sender: TObject); begin Self.OnActivate := nil; PuedoCerrar := False; QuieroCerrar := False; FormRepaint; PuedoCerrar := True; if (QuieroCerrar) then Close; end; procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction); begin if (PuedoCerrar) then begin Action := caFree; FormMain := nil; end else begin Action := caNone; QuieroCerrar := True; end; end; Última edición por duilioisola fecha: 28-08-2007 a las 14:34:48. |
#7
|
||||
|
||||
Había utilizado ya 'Flags' para abortar el proceso FormRepaint. Todo funciona en teoría correctamente, cancelo el repintado y cierro el form.
Pero preguntaba si había otra manera más 'correcta'. El inconveniente de utilizar ese 'Flag' para abortar el proceso de repintado, es que de hecho al final del todo, después de cerrar el Form, la variable FormMain no queda a Nil. Por lo tanto, en mi menú principal de la aplicación, dicho Form aparece como si estuviera 'activo'.
__________________
Piensa siempre en positivo ! |
#8
|
||||
|
||||
Cita:
Prueba con esto:
|
#9
|
||||
|
||||
No entiendo bien el motivo de cerrar cuando está abriendo, pero en fin... ¿por qué no lo pones invisible, hide, y luego lo pones a nil desde donde lo has llamado.
Código:
procedure TfrmBackRestAux.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; Action := caHide; end; Código:
frmAux := TfrmBackRestAux.Create(owner); frmAux.ShowModal; // frmAux.Free; FreeAndNil(frmAux); |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Actualizar form al volver a el mientras se realiza proceso largo(p.e: recorrer db) | Wonni | Varios | 5 | 18-06-2007 19:44:00 |
Abortar un proceso | TONIAM | Varios | 10 | 31-05-2007 19:26:41 |
¿como abortar ejecución de eventos? | pjjorda | Varios | 5 | 06-06-2006 20:59:59 |
Como Abortar mi APP sin q aparescan Mens de ERROR | pcicom | OOP | 5 | 22-03-2005 09:22:13 |
Como evitar que el usuario cierre la form! | Waldo | API de Windows | 2 | 20-11-2003 18:46:47 |
|