Cita:
Empezado por 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;