Подписаться на RSS рассылку
Главная » Статьи по 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.

Просмотров: 5723

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта