Следующая статья: Слияние MDI-меню.
Решение
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.