Un Close pasota....

[roman]

¿Has probado lo que propones? Recuerda que el amigo necesita cerrar el formulario luego de terminado el proceso.

// Saludos

[Lord Delfos]

Sí... Me parece que no entiendo bien lo que quiere hacer, entonces.

Lo que yo digo es que si va a mostrar el formulario, hacer una serie de cosas pesadas y después cerrarlo. Porqué no hacer un refresh o repait del formulario después de mostrarlo y antes de empezar a hacer las cosas pesadas.

Digo, eso es los que yo he hecho siempre.

Por eso aclaro, quizá yo esté entendiendo mal el asunto...

[[Delphius]]

Tuve que ausentarme unas horas.
Tras leer lo que se vino diciendo aqui, yo estoy con roman.
El form principal es que quien se encarga de hacer el trabajo duro. Hacer que el form modal haga ese trabajo rompe con el esquema para el cual fueron concebidos: pedir una "confirmación" rápida.

Saludos,

[TOPX]

Ahora yo.

El Close no tiene efecto en el onActivate, porque la forma modal no ha entrado en el ciclo que hace HandleMessage. Pues, como exponen los compañeros del foro, por definición las formas modales no están para comportarse así.

De todas maneras y según entiendo, hay dos opciones prácticas para "forzar" esto, que a la larga pueden ser similares, pero Ud. escoge:

1. Crear un Hilo que esté modificando la propiedad ModalResult, para que apenas termine el onActivate, se cierre.
2. Añadir un Timer que en su evento onTimer esté verificando que el proceso ya acabó, para que entonces modifique la propiedad ModalResult.

[roman]

Empezado por TOPX

El Close no tiene efecto en el onActivate, porque la forma modal no ha entrado en el ciclo que hace HandleMessage.

¡Exacto! ShowModal implementa su propio ciclo de mensajes en lugar del de la aplicación:

Código Delphi [-]
function TCustomForm.ShowModal: Integer;
begin

  ...

    Show;
    try
      SendMessage(Handle, CM_ACTIVATE, 0, 0);
      ModalResult := 0;
      repeat
        Application.HandleMessage;
        if Application.FTerminate then ModalResult := mrCancel else
          if ModalResult <> 0 then CloseModal;
      until ModalResult <> 0;
      Result := ModalResult;
      SendMessage(Handle, CM_DEACTIVATE, 0, 0);
      if GetActiveWindow <> Handle then ActiveWindow := 0;
    finally
      Hide;
    end;

  ...
end;

La llamada a Show generará el evento OnShow mientras que el mensaje CM_ACTIVATE generará el evento OnActivate, antes de entrar al ciclo repeat-until, como bien señala nuestro amigo TOPX. Ese ciclo sólo termina cuando el valor de ModalResult es distinto de cero y aunque Close lo que hace es poner ModalResult en mrCancel (<> =0), lo hace antes de la inicialización a cero de la variable justo antes de comenzar el ciclo.

Ahora bien, si se insiste en dejar el proceso de descarga en el formulario modal, entonces pueden usar el método del AfterShow. Aquí un ejemplo:

Código Delphi [-]
const
  CM_AFTERSHOW = WM_USER + 1;

type
  TForm2 = class(TForm)
    ProgressBar1: TProgressBar;
    procedure FormShow(Sender: TObject);

  private
    procedure CMAfterShow(var Msg: TMessage); message CM_AFTERSHOW;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
  PostMessage(Handle, CM_AFTERSHOW, 0, 0);
end;

procedure TForm2.CMAfterShow(var Msg: TMessage);
begin
  Refresh;

  { Código para descargar }

  Close;
end;

PostMessage coloca un mensaje en la cola de mensajes de la aplicación, que no se procesará sino hasta que -justamente- se entre al ciclo de mensajes y HandleMessage lo tome.

Trasladamos entonces, todo el proceso al manejador del mensaje que mandamos, en donde ya se puede usar Close sin ningún problema.

// Saludos

[JoysticK]

Uff bastante información me habeis reportado, creo que voy a necesitar reflexionar un poco para comprender todo lo expuesto y actuar en consecuencia, aunque lo mas facil que veo es la primera opcion, dejar el trabajo duro al formulario princial como dice roman... es lo mas facil aunque me entran ganas de investigar todo lo que me habeis expuesto como el aftershow que no conocia hasta ahora...

Voy a investigar un poco y os cuento, muchas gracias por vuestra ayuda, ya he aprendido otra cosa más hoy