Создаем заставку для программы

Заставка обычно появляется перед запуском самой программы и несет в себе информацию о названии продукта, авторе, версии. Такие заставки есть в приложениях Mirosoft Office, Delphi , Robot Studio и т.д.

Сегодня я покажу как это делать.


Сначала необходимо создать новую форму и переименовать её из Form2 , допустим, в SplashScreen.

Редактируем её некоторые свойства: BorderStyle:=bsNone и Position := poScreenCenter.
Остальные параметры и внешний вид изменяем по своему усмотрению.

А теперь самая главная часть - редактируем файл проекта( по умолчанию Project1.dpk):

program Project1; 
uses 
  Forms, 
  Windows, 
  Unit1 in 'Unit1.pas' {Form1}, 
  Unit2 in 'Unit2.pas' {SplashScreen}; 
{$R *.RES} 
begin 
  SplashScreen := TSplashScreen.Create(Application); 
  try 
    SplashScreen.Show; 
    Application.Initialize; 
    SplashScreen.Update; 
    Sleep(1000); // Or a delay command. 
    Application.CreateForm(TForm1, Form1); 
    SplashScreen.Hide; 
  finally 
   SplashScreen.Free; 
  end; 
  Application.Run; 
end.

На этом создание заставки окончено, можно компилировать проект.

У вас есть качественные программы или сайты? Поменяйте их на то, что вам сейчас нужнее.

Удачи! SourceExpert.Blogspot.com