 |
10.02.2010, 16:23
|
|
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
С нами:
8687741
Репутация:
-4
|
|
Окно как в офисе[delphi]
Всем привет. Подскажите как сделать что бы вылетало окно перед запуском программы как в офисе
|
|
|
10.02.2010, 16:30
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
С нами:
9315854
Репутация:
107
|
|
ищи примеры splash screen
|
|
|
|
11.02.2010, 00:01
|
|
Познающий
Регистрация: 07.06.2008
Сообщений: 48
С нами:
9434892
Репутация:
52
|
|
Сделай эту сплэш форму главным окном, убери заголовок окна(вроде свойство BorderStyle поставить на bsnone) и отображай все остальные окна после выполнения всех нужных тебе загрузок сплэш формы.
|
|
|
|
11.02.2010, 08:26
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
С нами:
9231117
Репутация:
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
ну и какойнибуть имайже на всю морду |
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
