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

[marcos]

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

[ZdezBilYa]

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

[RaX]

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

[RumShun]

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

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
ну и какойнибуть имайже на всю морду