Barra de grigressao - Soh aparece no final da execução

Delphi

26/10/2005

Bom dia!

Eu estou fazendo um sistema onde gera alguns relatórios onde os mesmo são impressos diretamente, não dou um preview nos mesmos....

E no momento da geracao do relatorio eu uso o componente TGauge (tipo de barra de pregressao) e vou incrementado conforme os relatorios vão sendo gerados.

O problema é que o mesmo (a barra) só é mostrada quando os relatórios foram concluídos, aí não tem o pq eu usá-la.

Ja tentei usar o Application.ProcessMessages em cada incremento, mas mesmo assim não funcionou, e o form onde está a barra é o form main, ele é criado antes dos relatorios...

Algume tem alguma idéias?
Valeu!


Celamar

Celamar

Curtidas 0

Respostas

Massuda

Massuda

26/10/2005

Coloque um Update após cada atualização do gauge; isso faz o form ser atualizado imediatamente.


GOSTEI 0
Celamar

Celamar

26/10/2005

Assim?
Gauge1.Update;


GOSTEI 0
Celamar

Celamar

26/10/2005

Não funcionou, se for assim... :(


GOSTEI 0
Massuda

Massuda

26/10/2005

Seria algo assim...
...
SeuForm.SeuGauge.Progress := ...
SeuForm.Update;
...



GOSTEI 0
Celamar

Celamar

26/10/2005

Mas tb nao funcionou...

Com o Application.ProcessMessages ja deveria ter funcionado...

:(


GOSTEI 0
Marioguedes

Marioguedes

26/10/2005

Verifique o valor que você está colocando dentro do progress. E também do MaxValue....

O Application.OrocessMessages é mais do que suficiente mesmo.


GOSTEI 0
Celamar

Celamar

26/10/2005

Como assim valor do process??
O MaxValue contem o numero de registros...


GOSTEI 0
Massuda

Massuda

26/10/2005

Como assim valor do process??
O marioguedes falou do Progress, a propriedade do TGauge que você precisa ir mudando para a barra se mover.


GOSTEI 0
POSTAR