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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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.

{/codecitation}

Добавить комментарий