TPanel y bucle incompatibles

JoseQ · #1 03-03-2005

Bueno resulta que en mi aplicacion durante un proceso de carga que tarda unos 5 o 6 segundos me gustaria mostrar un TPanel en cuyo caption aparece CARGANDO, bien, este panel lo tengo creado i no visible, cuando llamo al procedimiento de carga seteo el visible a true y justo antes de terminarlo lo welvo a poner a false, el problema esta en que no muestra el panel, se notan los bordes del panel xo se queda colgado al entrar en el bucle del procedimiento de carga y no se desbloquea asta que termina, justo antes de desaparecer el panel, por lo tanto no llega a salir nada, que podria hacer para que no comenzase el procedimiento de carga asta que no se muestre el TPanel ?

gracias

[maeyanes] · #2 03-03-2005

Usa Application.ProcessMessages dentro del bucle de carga...

Código Delphi [-]for I := 0 to Count - 1 do
begin
  // Código a ejecutar
  Application.ProcessMessages
end;