Como abortar correctamente un proceso que es interrumpido por el cierre del Form

[[gluglu]]

Hola amig@s !

En el OnActivate de un Form llamo a un proceso que tarda algunos segundos en generar la pantalla que quiero mostrar.

Código Delphi [-]
procedure TForm.FormActivate(Sender: TObject);
begin
  Self.OnActivate := nil;
  FormRepaint;
end;

Si el usuario, durante dicho proceso FormRepaint, hace click para cerrar el Form, de manera inmediata se llama a la rutina FormClose.

Código Delphi [-]
procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  FormMain := nil;
end;

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.

[[duilioisola]]

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;

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;

[[gluglu]]

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.

[[gluglu]]

Por cierto, en estos casos, Bienvenido al Club !

[[seoane]]

¿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

[[duilioisola]]

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

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;

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;

[[gluglu]]

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'.

[[seoane]]

Empezado por gluglu

Por lo tanto, en mi menú principal de la aplicación, dicho Form aparece como si estuviera 'activo'.

Como compruebas si el form esta activo, supongo que así:

Código Delphi [-]
  if FormMain <> nil then
   ... etc

Prueba con esto:

Código Delphi [-]
function Existe(F: TForm): Boolean;
var
  i: integer;
begin
  for i:= 0 to Screen.FormCount - 1 Do
    if Screen.Forms[i] = F then
    begin
      Result:= TRUE;
      Exit;
    end;
  Result:= FALSE;
end;

if Existe(FormMain) then
  etc ...

[Casimiro Noteví]

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.

procedure TfrmBackRestAux.FormClose(Sender: TObject; var Action: TCloseAction);
begin   
  inherited;
  Action := caHide;
end;

  frmAux := TfrmBackRestAux.Create(owner);
  frmAux.ShowModal;
  // frmAux.Free;
  FreeAndNil(frmAux);

Creo que te puede servir algo así.