Ver Mensaje Individual
  #4  
Antiguo 29-12-2005
[fer21unmsm] fer21unmsm is offline
Miembro Premium
 
Registrado: dic 2005
Ubicación: Lima
Posts: 627
Reputación: 19
fer21unmsm Va por buen camino
Cita:
Empezado por pepecharlie67
¿Donde lo pongo?Gracias
Bueno si es que está dentro de un ciclo while, entonces el application.ProcessMessages ponlo antes de entrar al while.

Bueno según me acuerdo hace no poco utilicé el tprogressbar y un label para mostrar cierta información conforme iba avanzando la barra de progreso pero ni con el application.ProcessMessages me mostraba el label, así lo que hice fue poner después de asignar la cadena al label(etiqueta), un refresh.

Un ejemplo sencillo:

Código:
  ProgressBar1.Position=0;
  ProgressBar1.Step=1;
  while ProgressBar1.Position<>100 do
  begin
	ProgressBar1.StepIt;
	label1.Caption:='Porcentaje '+IntToStr(ProgressBar1.Position)+'%';
	label1.Refresh; //llama al método repaint y es lo que necesitas
	sleep(50); //esto lo he puesto para que se vea bien el avance sino lo hace rápido
  end;
Espero te sirva
Saludos.
Responder Con Cita