как сделать заставку при закрытии программы(событие TForm1.FormClose)?

[beegl]

Всем доброго дня. Вот это пример заставки при запуске программы

program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
  Application.Initialize;
  Form2 := TForm2.Create(Application);
  Form2.Show;
  Form2.Update;
  while Form2.Timer1.Enabled do
    Application.ProcessMessages;
  Application.CreateForm(TForm1, Form1);
  Form2.Hide;
  Form2.Free;
  Application.Run;
end.

А как вызвать ту самую заставку при закрытии программы?

[SERG1980]

Почти также

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 Form2:=Form2.Create(self);
 Form2.Timer1.Enabled:=true;
 Form2.Show;
 while Form2.Timer1.Enabled do
 begin
  CanClose:=false;
  Application.ProcessMessages;
 end;
 Form2.Free;
 CanClose:=true;

end;

[Stilet]

Ну в OnClose показывай форму, а в конце ее удаляй...

[beegl]

выводит ошибку
на строку

Form2:=Form2.Create(self);

Stilet, объесните немножко подробней, если можете из кодом

[SERG1980]

выводит ошибку
на строку

Form2:=Form2.Create(self);

Пардон попробуй так

Form2:=TForm2.Create(self);

[beegl]

а что ж в таймере написать, чтоб закрывало полностью программу, после отображения заставки?
А то пробовал написать в таймере и Form1.close; и Application.Terminate;, не закрываеца

[maladoy]

А напиши

halt;

[Stilet]

Если не секрет зачем нагскрин в завершении работы?

[beegl]

Stilet, не секрет, просто, для красоты, чтоб программа выглядела с изюменкой
SERG1980, maladoy, благодарю за помощь

[Stilet]

beegl

Появилась свободная минутка, если вопрос еще актуален то вот мое решение:

1. Создаем две формы.
2. На второй форме растягиваем изображение, и ставим ей borderStyle:=bsNone и Position:=DeskTopCenter
3. Изначально вторая форма может быть создана но должна быть невидима
4. Пишем в главной форме такой код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
hide;
CanClose:=false;
Timer1.Enabled:=true;
form2.show;  // Это нагскрин
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form2.Close;
Application.Terminate;
end;

Здесь Таймер на первой форме будет включаться при запросе на закрытие проги, при этом будет появляться нагскрин, который будет по срабатыванию таймера убираться, и программа закроется. Перед таймером для красоты скроем главную форму (в принципе и все остальные формы кроме нага)

Надеюсь отписался яснышко.