Barra de progreso modal

[[kuan-yiu]]

Yo uso una barra dentro de un pequeño formulario con un formato unificado para toda la aplicación. La llamo siempre que lo necesito con este código.

Código Delphi [-]
//Creo el formulario    
   Application.CreateForm(TF_barra, F_barra);
   
//Inicializo la barra. (Función definida dentro del formulario de la barra)
   F_barra.caption := 'Texto para mostrar en la ventana.';
   F_barra.Panel1.caption := 'Texto para mostrar sobre la barra.';
   F_barra.ProgressBar1.Position := 0;
   F_barra.ProgressBar1.Max := cTamanho;  //Constante definida en cada uno de los procesos que hacen uso de la barra
   F_barra.Show;
   F_barra.Update;
   
//Cada vez que tengo que mover la barra. (Función definida dentro del formulario de la barra pero puedes hacerlo directamente así)    
   F_barra.ProgressBar1.StepIt;
//Aquí puedes poner el estado del proceso en número pero yo no lo tengo
   F_barra.Panel1.caption := 'Estado: '+ IntToStr(F_barra.ProgressBar1.Position) +' / '+ IntToStr(F_barra.ProgressBar1.Max);
   F_barra.Update;
   
//La libero cuando acabo. (Función definida dentro del formulario de la barra)
   F_barra.ProgressBar1.Position := F_barra.ProgressBar1.Max;
   F_barra.close;
   F_barra.free;