Показ логотипа при запуске приложения 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.
|