Ver Mensaje Individual
  #4  
Antiguo 24-02-2008
marlulipe marlulipe is offline
No confirmado
 
Registrado: jun 2007
Posts: 16
Reputación: 0
marlulipe Va por buen camino
Question

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
      // Aca uso un TIBQuery para obtener unos datos de la BD

   // Código que me pasaron  
   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;   // ---> Aca encuentro uno de mis      problemas, no tengo un dialog timer 
         end;

         case ShowModal of
            ID_CANCEL: //
         end;

      finally
          timer.OnTimer:=nil;
        Free;
      end;

// Mi segunda duda... cuándo haría el Preview? (Reflexiones abajo)
   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!
Responder Con Cita