Programa comando

[[eduarcol]]

To lo haria en el dpr, algo asi

Código Delphi [-]
Application.Initialize;
Application.ProcessMessages;
//Carga la pantalla de progreso
Progreso := TProgreso.Create;
try
   Progreso.Show;
   if not ObRutinas.EjecutarParametros then 
      ObRutinas.msgError( msErrorParametros );
finally
   FreeandNil(Progreso);
end;

[Amilius]

¿Que tal con una ventana auxiliar (un form simple que no es creado al inicio) que muestre el estado de avance del cálculo?

Yo hice esto y funcionó muy bien, en el onCreate del form principal:

- Creas la ventana auxiliar (Ojo, es un form que NO se crea al inicio, eso te fijas en el "proyect source").
- actualizas la barra de progreso en la ventana las veces necesarias.
- Eliminas la ventana auxiliar.

Además, eventualmente te servirá como "splashscreen" de esas que muestran el avance de la carga del programa, gráficos, sonidos, etc.

[vecino]

Hola:

Hay muchas formas de conseguir lo que quieres, además de lo que ya te han explicado los compañeros, también te puede servir algo muy sencillo, poner el código en el OnActivate en lugar de en el OnShow. Sólo debes de controlar que no vuelva a pasar por ese evento más de una vez (por si acaso pulsa en otra ventana y luego vuelve de nuevo a ella).

Saludos.