Окно загрузки программы

[DKENT]

Немогу решить проблему, подскажите пожалуйста что делать!

Делаю окно загрузки программы

begin  
Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := False;
  Application.CreateForm(TForm2, Form2);
  Form2.Show;
  Sleep(7000);
  Form2.Hide;
  Application.ShowMainForm := true;
  Application.Run;
end.

Окно появляется, но оно пустое
Скрины:
Появляется в таком виде: http://s019.radikal.ru/i633/1205/33/6df25de04d78.jpg
Должно быть так: http://s019.radikal.ru/i624/1205/1d/5877a181cecd.jpg

Прошу помощи....
Заранее благодарен!

[googl]

у тебя там анимация? application.processmessages делаешь?
поставь перед форм2.шов

[DKENT]

Анимации нет!
На форме картинка и прогресс бар!

Попробовал ваш пример, не помогло!

Ниже пример

[s-andriano]

Нужно как-то разделить процесс загрузки и процесс отображения прогрессбара Варианта вижу 2:
1. Вынести загрузку в отдельный поток.
2. Периодически (когда нужно обновить прогрессбар) прерывать загрузку, возвращаясь в нее по таймеру.

[3D Hunter]

Исправил, изучайте:
test.rar

[DKENT]

Сообщение от 3D Hunter

Исправил, изучайте:
Вложение 50814

Все также, белый фон при загрузке!

[3D Hunter]

Какая ОС? У меня Windows 7 x64. EXE-файл запускали сначала? У меня все отлично работает.

[Shouldercannon]

Тоже нормально работает.

[googl]

Сообщение от Shouldercannon

Тоже нормально работает.

а у меня нет.

[googl]

сделай так:

var 
  i:integer;
begin  
Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := False;
  Application.CreateForm(TForm2, Form2);
  Form2.Show;
for i:=1 to 100 do
begin
  application.processmessages;
  Sleep(100);
end;  
Form2.Hide;
  Application.ShowMainForm := true;
  Application.Run;
end.