Crear aviso "Espere unos minutos" durante operacion con mucha carga de CPU . AYUDA

[[Lepe]]

Estoy de acuerdo con Bicho, incluso deberías plantearlo de otra forma si quieres actualizar el mensaje de TWaitForm.

Código Delphi [-]

procedure TfrmInformeCarterosTodosPendientes.Create(....);
var F:TWaitForm;
begin

  F := TWaitForm.Create(self);
  try 
     for i:= 0 to dos millones do
     begin
       F.Label1.Caption := 'Quedan '+ intTostr(Reg)+ ' registros';
       F.Update; // ordenamos que se pinte
       Application.ProcessMessages; // damos un respiro para que se pinte
     end;
  finally
     FreeAndnil(F);
  end;
end;

Hay otras formas de plantearlo, depende de como quieras hacerlo.

Saludos

[droguerman]

no has pensado en usar Threads? es un poco más complicado pero está hecho para este tipo de situaciones

[fidel]

Hola:

¿ No te funciona una TStatusBar ?

La puedes tener oculta, hacerla visible antes del proceso con el texto que desees en la propiedad Simple Text, y ocualtarla al finalizar.

Un saludo.

[Cheerpipe]

ya he probado con hilos pero no con Application.ProcessMessages, como no tenia bucles (puesto que es una consulta sql lo que usa mucho cpu), pero en fin, creo que me he orientado algo mas, por lo que intentare con el aplication.processmessages y les cuento como va.

La cuestion es que cuando el formulario que contiene y muestra los resultados de la consulta, debe enviar algun tipo de mensaje al formulario tWaitForm para detener el bucle lo redibujara.

Gracias por su ayuda.

[[AzidRain]]

Yo lo resolvi de forma simple pero atractiva al usuario. Como no puedes meter código dentro del query para ir actualizando la unica opcion son los threads...pero es mucho problema solo para algo "cosmético"...

Lo que hice fue:
Hago una ventana con opcion de que se quede "siempre encima" en ese form le pongo un TAnimate con alguna de las animaciones que ya trae por defecto.
En el codigo justo antes de abrir el query creo el form, cambio la propiedad Active del TAnimate a true y muestro el form.
Ejecuto el query....(windows se encarga de estar actualizando el form)
al terminar el query, destruyo el form creado
y listo

Ya siendo mas complicado puedes crear tu propio AVI para mostrar en lugar de los que ya trae.