Actualizar valor de TProgressBar

[Casimiro Noteví]

Originally Posted by Maniches

PUSE UNA ETIQUETA (lblSeq) PARA VERIFICAR SI ESTA INCREMENTANDO LA POSICIÓN DEL PROGRESS Y SU ESTA INCREMENTANDO. LO QUE NO SE ESTA VISUALIZANDO EN EL FORMULARIO QUE HEREDA ES EL EFECTO DEL PROGRESS QUE PINTE LA BARRA EN BASE AL INCREMENTO.
QUE PODRÍA ESTAR FALTANDO?

No grites, no estamos sordos


Lo solucionarás con:

Código Delphi [-]
pbMain.Position:= pbMain.Position + 1;
lblSeq.Caption:= IntToStr(pbMain.Position);
Application.ProcessMessages;  //  <---

De todas formas, un postgresbar no funciona así, sino así:

Código Delphi [-]
pbmain.StepIt;
lblSeq.Caption:= IntToStr(pbMain.Position);
Application.ProcessMessages;  //  <---