Как сделать окно загрузки программы?

Posted by Chas under Delphi

Делаю окно загрузки программы. Окно появляется, но оно пустое.

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.

тема на форуме

Случайные статьи

• Добавить текст начиная с определенной строки
• Delphi, хранение музыки и картинки в record-файле
• Рассылка. Выпуск 212
• Создание аудио плеера на bass.dll
• Пример сортировки в ListView
• Разработчики – интерфейс – пользователи
• Липкие обьекты
• Движение прямоугольника вместе с курсором
• В одной и той-же ячейке на каждом листе есть определенная цифра, нужно сделать подсчет за последние семь листов
• Кодировка в INDY 10 (как бороться с «???»)