Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Программа и интерфейс » Создать диалог загрузки программы

Создать диалог загрузки программы

Автор:

Если программа грузится достаточно долго, то желательно использовать диалог загрузки, чтобы пользователь видел что программа грузится. Как же это сделать? Нажмите Ctrl+F12, выберите Project1 (по умолчанию). И отредактируйте код следующим образом:

program Project1;

uses
  Forms, SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);

  Application.ShowMainForm := False; // прячем главную форму
  Form2.Show;

  {Загружаем все необходимое}
  Sleep(1000); // т.к. загружается очень быстро
               // то чтобы увидеть окно загрузки
               // делаем задержку в 1 секунду

  Form2.Hide;

  Application.ShowMainForm := true; // показываем главную форму
  Application.Run;
end.