Форум АНТИЧАТ - Окно как в офисе[delphi]

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Окно как в офисе[delphi] (https://forum.antichat.xyz/showthread.php?t=177753)

Окно как в офисе[delphi]

Всем привет. Подскажите как сделать что бы вылетало окно перед запуском программы как в офисе

ищи примеры splash screen

Сделай эту сплэш форму главным окном, убери заголовок окна(вроде свойство BorderStyle поставить на bsnone) и отображай все остальные окна после выполнения всех нужных тебе загрузок сплэш формы.

я делаю так, может быть коряво, но просто, в проекте пишу

PHP код:


		
			
program Primer;



uses

  Forms,

  Controls,

  SysUtils,

  Dialogs,

  UnitMainForm in 'UnitMainForm.pas' {MainForm},

  UnitZastForm in 'UnitZastForm.pas' {ZastForm},

  UnitAboutBox in 'UnitAboutBox.pas' {AboutBox};



{$R *.res}



begin

 try

  Application.Initialize;

  ZastForm:=TZastForm.Create(Application);

  ZastForm.Show;

  ZastForm.Update;

  Application.CreateForm(TMainForm, MainForm);

  Application.CreateForm(TAboutBox, AboutBox);

  ZastForm.Hide;

  ZastForm.Free;

 except

  on e: Exception do

  begin

   MessageDlg(e.Message, mtError,[mbOk],0);

   MainForm.Memo1.Lines.Add(e.Message);

  end

  else

  begin

   MessageDlg('Unknow error!', mtError,[mbOk],0);

  end;

 end;

  Application.Run;

end.

форма ZastForm соответственно заставка, у нее
borderstyle bsNone
formstyle fsStayOnTop
position poScreenCenter
ну и какойнибуть имайже на всю морду