11.02.2010, 08:26
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме:
1249808
Репутация:
149
|
|
я делаю так, может быть коряво, но просто, в проекте пишу
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
ну и какойнибуть имайже на всю морду |
|
|