splash screen ... problemas....

Delphi

20/02/2004

to fazendo uma splash screen que mostra o progresso de criaçao dos forms .... ela tah funcionando basicamente normal ....

soh q o texto da label q eu mando mudar .. ele nao muda .. ele mostra soh o primeiro e depois nao muda .. alguem sabe pq?

begin
  Application.Initialize;
  Form6 := TForm6.Create(Application);
  Form6.Show;
  Form6.Update;
  Application.Title := ´SPFC Online´;
  form6.Label1.Caption := ´Carregando módulos básicos´;
  Application.CreateForm(TMainForm, MainForm);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  form6.Label1.Caption := ´Informações sobre about´;
  Application.CreateForm(TAboutBox, AboutBox);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  form6.Label1.Caption := ´Carregando informações de status´;
  Application.CreateForm(TForm1, Form1);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  form6.Label1.Caption := ´Carregando opções de chat´;
  Application.CreateForm(TForm4, Form4);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  form6.Label1.Caption := ´Carregando opções de narração´;
  Application.CreateForm(TForm3, Form3);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  form6.Label1.Caption := ´MP3 player configs´;
  Application.CreateForm(TForm5, Form5);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  form6.Label1.Caption := ´Carregando módulo de janelas´;
  Application.CreateForm(TForm7, Form7);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  form6.Label1.Caption := ´Carregando stats de user´;
  Application.CreateForm(TForm9, Form9);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  form6.Label1.Caption := ´Informacões de nick´;
  Application.CreateForm(TForm14, Form14);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  form6.Label1.Caption := ´Carregando opções de nick´;
  Application.CreateForm(TForm15, Form15);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  form6.Label1.Caption := ´Carregando config. de away´;
  Application.CreateForm(TForm16, Form16);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  form6.Label1.Caption := ´Carregando web browser´;
  Application.CreateForm(TOKBottomDlg, OKBottomDlg);
  form6.ProgressBar1.Position := form6.ProgressBar1.Position + 1;
  Form6.Hide;
  Form6.Free;
  Application.Run;
end.



Salsa

Salsa

Curtidas 0

Respostas

Cebikyn

Cebikyn

20/02/2004

Verifique se chamando o método Update do Label, após alterar o Caption, mostra o texto corretamente.

...
Form6.Label1.Caption := ´Carregando módulos básicos´;
Form6.Label1.Update;
...
Form6.Label1.Caption := ´Carregando informações de status´;
Form6.Label1.Update;
...


GOSTEI 0
Vinicius2k

Vinicius2k

20/02/2004

Colega,
Após cada mudança de caption entre com :
Application.ProcessMessages;


espero ter ajudado...
T+


GOSTEI 0
POSTAR