|
Создайте форму и поместите на нее логотип, используя компонент Timage. В моем примере я создал форму с логотипом и именем "logoform". Зайдите в настройки проекта и исключите форму их списка "автосоздаваемых" форм. Затем в вашем файле PROJECT.DPR где-то сразу после ключевого слова begin напишите примерно следующее: logoform := TLogoform.Create(nil); logoform.Show; { ВНИМАНИЕ! show! НЕ showmodal }
. . { Здесь может размещаться код инициализации приложения, например, открытие базы данных... } .
. { После блока кода, создающего все ваши формы и перед строчкой Application.Run напишите: }
logoform.Hide; logoform.Release; Это будет показывать форму с логотипом до тех пор, пока приложение не выполнит инициализационный код и окончательно не запустится. A вот Алексей (
Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script
) показал более изящный способ: 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. |