Советы по Delphi

         

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


Это очень просто.

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

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

    logoform := TLogoform.Create(nil); logoform.Show;            { ВНИМАНИЕ! show!   НЕ showmodal }
. . { Здесь может размещаться код инициализации приложения, например, открытие базы данных... } .
.  { После блока кода, создающего все ваши формы и перед

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

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

A вот Алексей (msalex@tomcat.ru) показал более изящный способ:

    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.
[000093]



Содержание раздела