Показ логотипа при запуске приложения

Written on 18 Октября 2007. Posted in [Delphi] Приложение

Создайте форму и поместите на нее логотип, используя компонент Timage. В моем примере я создал форму с логотипом и именем "logoform". Зайдите в настройки проекта и исключите форму их списка "автосоздаваемых" форм.

Затем в вашем файле PROJECT.DPR где-то сразу после ключевого слова begin напишите примерно следующее:

logoform := TLogoform.Create(nil);

logoform.Show; { ВНИМАНИЕ! show! НЕ showmodal }

. { Здесь может размещаться код инициализации приложения, например, открытие базы данных... }

. { После блока кода, создающего все ваши формы и перед

строчкой Application.Run напишите: }

logoform.Hide;

logoform.Release;

Это будет показывать форму с логотипом до тех пор, пока приложение не выполнит инициализационный код и окончательно не запустится.

A вот Алексей (Адрес электронной почты защищен от спам-ботов. Для просмотра адреса в вашем браузере должен быть включен Javascript.) показал более изящный способ:

program Project1;
uses

Forms,

Unit1 in 'Unit1.pas' {Form1};

ULogo in 'ULogo.pas' {LogoForm};

{$R *.RES}

begin Application.Initialize; {до этого момента никаких изменений}

with TLogoForm.Create(Application) do

try

Show;

Update;

Application.CreateForm(TForm1, Form1);

{GProgress.AddProgress(1); - здесь можно двигать прогресс, если TGauge

или TProgressBar лежат на TLogoForm'е}

{если есть еще формы, то Application.CreateForm(TForm2, Form2); и т.д.}

finally

Free;

end;

Application.Run;

end.

делфи форум