ошибка terminate

[KORT]

Вопрос такой: есть несколько форм, мне надо перед запуском программы появлялось 2 форма...
я делал следующее:
project-options-main form-form2...
при компиляции все работает, но потом после закрытия формы возникает ошибка
terminate...
Как мне избавиться от нее...

[SkyM@n]

Нужно в перед закрытием всех формы закрывать другие формы, которые созданные ею.

[Alex21]

в *.dpr поменяй порядок создания форм:

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm1, Form1);

[KORT]

Сообщение от SkyM@n

Нужно в перед закрытием всех формы закрывать другие формы, которые созданные ею.

Дело в том что все формы закрыты

[KORT]

Сообщение от Alex21

в *.dpr поменяй порядок создания форм:

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm1, Form1);

Делал так, но дело в том, что Form2 остается, а "не исчезает".., т.е. не пропадает

[SkyM@n]

Хм, а совет Alex21 не помог?

[Alex21]

Form2 становится главной формой.
Что мешает делать так:

Form2.Hide;
Form1.Show;

Для выхода:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form2.Close;
end;

[KORT]

Сообщение от Alex21

Form2 становится главной формой.
Что мешает делать так:

Form2.Hide;
Form1.Show;

так делал раньше,

Сообщение от Alex21

Для выхода:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form2.Close;
end;

добавил этот код, все равно остается 2 форма...

[Alex21]

Вообщем делай так:
Опции -> Формы
Form2 перемести в список доступных форм (Available forms)

На Form2 ставь таймер в нем : Timer1.Enabled := false;
И вид проекта должен быть примерно таким:

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.

Главной остается form1

[KORT]

Сенкс большой, завтра попробую, сегодня и голова от каурсача болит...буть он не ладен