Barra de Avance de Proceso
 

Hola a Todos!:

Les cuento: tengo una pantalla que hace muchos querys y calculos (hace varias cosillas); el punto es que el proceso tarda demasiado tiempo (5 minutos + o -)

Por este motivo, quisiera saber si es posible colocar algún tipo de barra de Avance (como si fuera una barra de descarga o algo así) que le indique al usuario que la computadora está trabajando y no se desespere pensando que la computadora "se bloqueó"... :p

Les agradezco de antemano la ayuda que me pueda ofrecer... :o

Si, usa el ProgressBar que esta en el Tab de Win32.

Saludos

Bien!!!

¿Me podrías indicar como hacerlo? :rolleyes:

¿Que necesito para que funcione o que onda?

Puedes hacer una prueba con esto:

Incluye un BitBtn y un Progressbar a tu form

en el evento Onclick del boton

Código Delphi [-]
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: Integer;
begin
  ProgressBar1.Step := 1;
  For i := 1 to 100 do begin
     ProgressBar1.StepIt;
     sleep(300); //Espera 300 milisegundos, solo para ver el movimiento.
  end;
end;

Esto te dara una idea de que hacer, ya tu lo puedes personalizar en tu codigo.
Saludos

Hola..

Yo utilizo algo así

var cant,i:=integer
begin
cant:=(cantidad de querys o cosas);
ProgressBar1.Min:=0;
ProgressBar1.Max:=can;
ProgressBar1.position:=0;
for i:=0 to can do
begin
ProgressBar1.position:=i;
.....
.....(contenido)
.....
end;

Saludos

Ok.

Lo pondré en práctica ahora...
Muchas Gracias a ambos :D