Проблема при организации формы загрузки...

[Oleg Romanchuk]

Всем добрый день, появилась такая проблемка...

Пишу в Project>View Source

begin
  SplashForm := TSplashForm.Create(nil);
  Application.Title:='Áàçà Äàííûõ';

  SplashForm.Show;
  SplashForm.Repaint;


  Application.Initialize;


  Application.CreateForm(TMainModule, MainModule);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TPassForm, PassForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TOptionForm, OptionForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TAddFIOForm, AddFIOForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TAddForm, AddForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TMyInfForm, MyInfForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TAddMoreInfForm, AddMoreInfForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TUserEditProgForm, UserEditProgForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;


  Application.CreateForm(TMyMainForm, MyMainForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  SplashForm.Free;
  SplashForm.Hide;
  Application.Run;

Application.CreateForm(TPassForm, PassForm);
Именно после этой строчки появляется форма PassForm, при этом SplashForm ещё видна на экране до того кода, пока форма не уничтожается и в прогресс баре идет загрузка. Почему так происходит? И как это исправить?

[Stilet]

Чет я не понял какую ты последовательность появления форм хочеш...

[Oleg Romanchuk]

последовательность такую, же... но надо что бы PassForm появлялась после того как Splash форма уничтожиться, раньше было вроде все нормально, теперь вот такая фигня...)

Вот измененный код, все работает правильно кроме того что вместе с пассформ появляется Application.CreateForm(TOptionForm, OptionForm); как это можно исправить...

  SplashForm := TSplashForm.Create(nil);
  Application.Title:='База Данных';

  SplashForm.Show;
  SplashForm.Repaint;


  Application.Initialize;

  Application.CreateForm(TMainModule, MainModule);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;



  Application.CreateForm(TOptionForm, OptionForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TAddFIOForm, AddFIOForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TAddForm, AddForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TMyInfForm, MyInfForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TAddMoreInfForm, AddMoreInfForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  Application.CreateForm(TUserEditProgForm, UserEditProgForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;


  Application.CreateForm(TMyMainForm, MyMainForm);
  SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
  Application.ProcessMessages;

  SplashForm.Free;
  SplashForm.Hide;

  Application.CreateForm(TPassForm, PassForm);
  //SplashForm.ProgressBar.Progress := SplashForm.ProgressBar.Progress + 1;
 // Application.ProcessMessages;

  Application.Run;

[Stilet]

Выставь в дизайнере для всех форм изначально Visible=False

Или перенеси создание остальных форм в обработчики формы PassForm. Пусть она будет главная, и пусть создает все остальные.