Como fazer funcionar um ProgressBar num SplashScreen

Delphi

29/10/2004

Gostaria que meu progress bar funcionasse.
Coloquei-o num splash screen, e a cada criação de forms eu coloquei uma posição pra ele, mas ele só vai até a primeira posição e abre o programa mas são 10 posições. Como solucionarei este problema ?

o codigo

Application.CreateForm(TFPrincipal, FPrincipal);
pb1.position:=5;
Application.CreateForm(TFrmSplash, FrmSplash);
pb1.position:=10;
Application.CreateForm(TFCadAlunos, FCadAlunos);
pb1.position:=15;
Application.CreateForm(TModulo, Modulo);
pb1.position:=20;
assim por diante.... ja coloquei tbem , pb1.refresh, ou form.update...
tbem nao deu certo...

no aguardo.[/code]


Geisonc

Geisonc

Curtidas 0

Respostas

Eixox

Eixox

29/10/2004

Eu não crio o form como você faz, portanto eu faço o seguinte:

Mando criar o form principal da aplicação.
No evento onShow do form principal eu crio o segundo form que será chamado e criado somente naquele momento.

Geralmente no splash eu faço algumas verificações num arquivo *.ini e a medida que eu vou lendo a estrutura vou passando o número de linhas lidas e verificadas.

O que pode estar acontecendo ai com seu form e que ele é criado junto com o principal. eu crio os meus sempre em execução.

Uso FSplash := TFoSplash.Create(self);
FSplash.Show; (Senão ele não fecha depois...)
.........vai fazendo algo....
.....................................
FSplash.Free;

Se não me engano é isso que eu faço, justamente porque os meus já ´são um padrão e num mexo mais neles - todos fazem a mesma coisa.
Porém posso mandar uma cópia mais explicada para você se quiser?


GOSTEI 0
Geisonc

Geisonc

29/10/2004

agradeceria bastante....

geisoncoscodai@hotmail.com

ou

geisoncoscodai@walla.com


GOSTEI 0
POSTAR