Прогресс в заставке при старте программы

[Aleksandr]

При пуске программы SplashForm долго висит порядка 50 секунд (в зависимости от количества записей в базе данных). Как мне реализовать ProgressBar, чтобы он отображал создание форм.

 Application.Initialize;
  with TSplashForm.Create(Application) do
  try
    Show;
    Update;


  Application.Initialize;
  Application.Title := 'Terminal com port';
  Application.CreateForm(TForm1, Form1);

 while SplashForm.Timer1.Enabled do

  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TSQLForm, SQLForm);
  Application.CreateForm(TOptionForm, OptionForm);
  Application.CreateForm(TFindForm, FindForm);
  Application.CreateForm(TResultForm, ResultForm);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  finally
    Free;
  end;


  Application.Run;

В форме заставки прописал

procedure TSplashForm.FormActivate(Sender: TObject);
begin
 progressbar1.position:=progressbar1.position+10;
  if ProgressBar1.Position=100 then Timer1.Enabled := false;
end;

[Kix.IV]

А что для вас создание формы? Сама функция создания окна выполняется мгновенно.
Если у вас грузится база и вы хотите это отобразить, то используйте какой-нибудь счётчик в функции загрузки.

[Aleksandr]

Да я хочу отобразить загрузку базы. Как это сделать?

[Kix.IV]

Для этого вам необходимо знать, либо приблизительное время загрузки, либо макс. кол-во элементов базы или ещё что-то, на что можно ориентироваться.
Далее просто увеличиваете текущее значение ПрогрессБара, либо каждую секунду, либо при загрузки каждого элемента базы, либо ещё при каком-то событии.
Что не понятно?

[Aleksandr]

Если я буду определять максимальное число базы, то программа еще медленее будет грузиться

[Sibedir]

Если я буду определять максимальное число базы, то программа еще медленее будет грузиться

Поясните.
Тут не понятно то, как вы определяете размер базы. Ведь в БД фиксированный размер записи, а размер файла известен заранее. Просто делим общий размер на размер записи и получаем кол-во записей.

[Аватар]

50 секунд

Это еще куда ни шло при загрузке сотен тысяч записей из базы. У вас столько? Если существенно меньше, то сверх не оптимальный код. А прогрессбар по другому и не работает - счетчик прогресса и максимальное значение счетчика. Как их определять знает только программист в конкретной ситуации

[Aleksandr]

Вот так работает, но прогресс достиг уже максимального значения, а программа еще не запустилась.

 
 SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;
  while SplashForm.Timer1.Enabled do
    Application.ProcessMessages;


  Application.Title := 'Terminal com port';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TSQLForm, SQLForm);
  Application.CreateForm(TOptionForm, OptionForm);
  Application.CreateForm(TFindForm, FindForm);
  Application.CreateForm(TResultForm, ResultForm);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  finally
    Free;

 SplashForm.Hide;
  SplashForm.Free;



  Application.Run;

progressbar1.position:=progressbar1.position+10;
  if  ProgressBar1.Position=100 then Timer1.Enabled := false;

[Aleksandr]

У меня 400 000 записей, и оно растет.
У меня база на MYSQL как определить размер записи?

[evg_m]

У меня 400 000 записей, и оно растет.

И человеку(пользователю) ВСЕГДА нужны все эти 400 000 ?
Да нужны все. Просмотр каждой записи в течении всего ОДНОЙ СЕКУНДЫ займет более 100 (СТА ЧАСОВ) или около 4 суток(по 24 часа в сутки)

Не грузить при старте ничего, и дать пользователю средства для указания (формирования условий отбора) действительно нужных данных.