Formulario de espera con barra de progreso

[[Lepe]]

En realidad el mensaje cmAfterShow se usa cuando se quiere hacer algo que lo impide el evento que se quiere usar, Me explico:

Si queremos ocultar una ventana en el evento OnShow, Delphi nos dirá que no podemos hacerlo, en ese caso creamos el mensaje anterior y ya podemos ocultar la ventana en el AfterShow.

En este caso, creo que se puede hacer de otra forma y ahorrarnos un mensaje.
Simplemente llamas a la rutina con ShowModal, y creas un procedimiento público en esa ventana para incrementar la barra de progreso:

Código Delphi [-]
procedure TForm1.IncPg(valor:integer);
begin
  progressbar1.position := valor;
  Form1.Update;
end;

La explicación de que guglu haya usado esa técnica creo deducir cual es:

Código Delphi [-]
procedure TForm_con_Barra.CMAfterShow(var Msg: TMessage);
begin
  progressbar1.position := valor;
  Form1.Update;// Delphi no nos deja usar esta 
//                linea en el evento OnShow (creo recordar)

end;