4 replies to this topic

[enecumene]

Pues eso, estoy intentando mostrar una barra de progreso mientras se abre una tabla, por ejemplo, tengo esta situación, al llamar a un form con una grilla con 7,000 registros el form aparenta estar congelado por un momento hasta que la tabla termine de abrir, por eso quiero mostrar una barra mientras se carga la tabla y cuando termine muestre el form, tengo lo siguiente:

En el OnShow del formulario a llamar:

delphi

procedure TFEmpleados.FormShow(Sender: TObject);
begin
FProgreso := TFProgreso.Create(Self); //Es un form pequeño con un progressbar
dsEmpleados.DataSet.Open;
FProgreso.ProgressBar1.Max := dsEmpleados.DataSet.RecordCount;
FProgreso.ShowModal;
end;

en el timer de FProgreso:

delphi

ProgressBar1.Position := DM.dbfEmpleados.RecNo;

Pero no me funciona, pues el form Progreso tarda en aparecer y no muestra ningún movimiento.

Saludos.

[felipe]

Claro amigo enecumene, ya que el form al crearse de primero cede la carga del proceso a la tabla, por lo que este ya esta bloqueado. En este caso además tu estas usando lo siguiente:

delphi

dsEmpleados.DataSet.Open;

Pero para contar el avance de los registros este otro:

delphi

DM.dbfEmpleados.RecNo;

Porque no intentas algo como esto entonces en FProgreso:

delphi

ProgressBar1.Position := FEmpleados.dsEmpleados.DataSet.RecNo;
Application.ProcessMessages;

Quizá funcione.


Saludos!

[Wilson]

Dataset.RecNo  no te funciona  a  no ser que recorras el Dataset que no es tu caso,  aqui te coloco algo que podrí­a servir (a veces va muy rápido),  no necesita de Timer, y los valores min y max del ProgressBar son 1 y 100.

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Datset.Open;
for i := 1 to Dataset.RecordCount do
 begin
   ProgressBar.Position:= (100 * i)div Datset.RecordCount;
 end;
end;

Otra solución es un progressbar sin fin con Timer y lo paras al mostrar el form mas o menos asi:

delphi

procedure TFEmpleados.FormShow(Sender: TObject);
begin
FProgreso := TFProgreso.Create(Self); //Es un form pequeño con un progressbards
Empleados.DataSet.Open;
FProgreso.ProgressBar1.Position:= FProgreso.ProgressBar1.max;
Timer1.Enabled := False;
FProgreso.ShowModal;
end;

y en el timer:

delphi

procedure TForm1.Timer1Timer(Sender: TObject); 
// Asigna min:= 0 y max:= 10 al progrssbar y 100 al interval del Timer para probar
begin
if pb.Position < pb.Max then 
pb.Position := pb.Position +1 
else 
pb.Position := pb.Min;
end;

[enecumene]

Gracias amigos, todos me fueron útiles, pero se me olvidaba el componente de cHackAll llamado _Busy la cual realiza el cometido

Saludos.

[felipe]

Gracias amigos, todos me fueron útiles, pero se me olvidaba el componente de cHackAll llamado _Busy la cual realiza el cometido

Saludos.

Fué lo primero que pensé ¿porque no lo usa? 



Saludos!