Muchas gracias por la información! Un par de duditas... No tengo un objeto DialogTimer, estoy usando Delphi 5, viejito... quizas sea por eso
Por otro lado... mi codigo es así más o menos:
Código Delphi
[-]
procedure TFormListadoAlumnoDatos.FormCreate(Sender: TObject);
var FormProgressBar:TForm;
ProgressBar:TProgressBar;
timer:TTimer;
begin
FormProgressBar:=CreateMessageDialog('Espere un momento, por favor.',mtInformation,[mbCancel]);
ProgressBar:=TProgressBar.Create(FormProgressBar);
timer:=TTimer.Create(FormProgressBar);
with(FormProgressBar)do
try
tag:=15;
Caption:='Generando Listado...';
Height:=100;
with ProgressBar do begin
Name:='ProgressBar';
Parent:=FormProgressBar;
Max:=FormProgressBar.Tag;
Step:=1;
Top:=50;
Left:=8;
Width:=FormProgressBar.ClientWidth-16;
end;
with timer do begin
Interval:=1000;
OnTimer:=dialogtimer; end;
case ShowModal of
ID_CANCEL: end;
finally
timer.OnTimer:=nil;
Free;
end;
QuickRAlumno.Preview;
Reflexiones: Si lo hago después del dialog va a tardar igual pero sin mostrar la barra de progreso que quiero, si lo hago antes de crear el dialog tarda la creacion del reporte y despues muestra la barra de progreso... o sea tengo que hacerlo en pararlelo... con threads??
Me fui para el lado de los tomates? Quizás estoy totalmente perdida
Gracias!