No me muestra un Label cuando ejecuto OnActivate

[[fer21unmsm]]

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:

  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.