Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-02-2007
natalinuyo natalinuyo is offline
Miembro
 
Registrado: ene 2007
Posts: 64
Poder: 18
natalinuyo Va por buen camino
Question 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ó"...

Les agradezco de antemano la ayuda que me pueda ofrecer...
Responder Con Cita
  #2  
Antiguo 13-02-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.556
Poder: 25
egostar Va camino a la fama
Si, usa el ProgressBar que esta en el Tab de Win32.

Saludos
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #3  
Antiguo 13-02-2007
natalinuyo natalinuyo is offline
Miembro
 
Registrado: ene 2007
Posts: 64
Poder: 18
natalinuyo Va por buen camino
Bien!!!

¿Me podrías indicar como hacerlo?

¿Que necesito para que funcione o que onda?
Responder Con Cita
  #4  
Antiguo 13-02-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.556
Poder: 25
egostar Va camino a la fama
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #5  
Antiguo 13-02-2007
Jucho69 Jucho69 is offline
Miembro
 
Registrado: ene 2007
Ubicación: Ciudad Habana, Cuba
Posts: 118
Poder: 18
Jucho69 Va por buen camino
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
Responder Con Cita
  #6  
Antiguo 13-02-2007
natalinuyo natalinuyo is offline
Miembro
 
Registrado: ene 2007
Posts: 64
Poder: 18
natalinuyo Va por buen camino
Thumbs up

Ok.

Lo pondré en práctica ahora...
Muchas Gracias a ambos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Avance de Carro y retroceso en Archivo Plano JELIRM Varios 4 06-10-2005 21:24:06
Avance de Linea en Campo BLOB AGAG4 Firebird e Interbase 0 21-09-2004 03:14:00
¿Cuál será el límite del avance tecnólogico? Nuria Debates 5 10-09-2004 11:05:57
Barra de avance JorgeBec Varios 1 01-07-2004 00:41:27
Detener el avance de pagina con PrintBand:=False!!! pepi2 Impresión 3 13-03-2004 23:45:53


La franja horaria es GMT +2. Ahora son las 23:06:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi