Barra de Avance de Proceso

[natalinuyo]

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

[egostar]

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

Saludos

[natalinuyo]

Bien!!!

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

¿Que necesito para que funcione o que onda?

[egostar]

Puedes hacer una prueba con esto:

Incluye un BitBtn y un Progressbar a tu form

en el evento Onclick del boton


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

[Jucho69]

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

[natalinuyo]

Ok.

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