Progreso mientras carga datos...

[casacham]

HOLA
Para lo que necesitas es utilizar uno de estos objetos TProgressBar o un TGauge para enseñar el progreso de las operaciones mientras se procesan los datos. Tenes que calcular antes el numero de procesos que vas a realizar. Esto se hace la propiedad Count, por ejemplo ADOTable1.RecordCount. El valor arrojado lo tenes que poner en esta propiedad:

Gauge1.MaxValue:=ADOTable1.RecordCount;
ProgressBar1.Max:=ADOTable1.RecordCount;

Si el bucle de analisis hace dos pasadas, entonces tendras que multiplicar ADOTable1.RecordCount por 2 o por el numero de veces que analises los datos de tu tabla.

Luego dentro del bucle utiliza una variable Integer como contador y asignala dentro del bucle a una de estas propiedades y listo. Tienes una hermosa barra mostrandote el progreso de tus operaciones en tiempo real

Var I: Integer;
begin
I:=0;
'Bucle . . . . .' begin
{ Bloque que analiza tus datos
...........................
...........................
...........................
........................... }

ProgressBar1.Position:= I;
Gauge1.Progress:= I;
I:=I+1;
ADOTable1.Next;
end; // Fin del bucle;

[jarlos]

Hola casacham...

Agradezco mucho tu propuesta, pero ya la he probado, e inclusive para mostrar el formulario del progreso ya he probado creándolo desde un objeto TThread. También le puse un Timer al form y en el evento OnTimer le puse una instrucción Application.ProcessMessage, pero nada.

Otra cosa, no esto de acuerdo en utilizar la instrucción RecordCount, mucho menos en controles ADO (estoy usando controles dbexpress).

De todas formas, creo que me quedaré con el AVI, por cierto, alguien sabe dónde conseguir un AVI con una animación parecida a la barra de progreso que muestra el Windows Live Hotmail cuando está cargando, o como el del Microsoft SQL Server 2005 ?