Свойства Form

[an-na2002]

У меня несколько форм. При переключении между ними я делаю:
...
Form2.Show;
Form1.Close;
выполнение заканчивается, хотя должна появиться TForm2.
Как сделать чтобы Form1 исчезала, а управление переходило к Form2?

[serg_iv]

Form2.Show;
Form1.visible:=false;

[an-na2002]

Я делаю на Form2 - Close выполнение не заканчивается.

[pda]

Form1 создаётся (как я понял) первой, она становится главной формой приложения. Соответсвенно, с ёё закрытием, завершается и приложение.

[an-na2002]

А можно сделать так чтобы в приложении при закрытии Form1 (главной), главной становилась другая форма?

[Sergei I. Gorelkin]

Нельзя - тяжкое наследие Windows MDI и Дельфи... Если хочется чего-то подобного, проще создать невидимую главную форму и никогда ее не закрывать.

[haword]

А можно сделать так чтобы в приложении при закрытии Form1 (главной), главной становилась другая форма?

сделай три формы, главной формой будет невидемая форма и через нее управляй двумя другими

[pda]

А можно сделать так чтобы в приложении при закрытии Form1 (главной), главной становилась другая форма?

Нет, но можно попробовать другое. Я не пробовал такое в FPC, но можно сделать на главной форме обработчик OnClose и устанавливать в нём Action в caHide.

[volf]

Товарищи зачем так все сложно.
Возможно необходимо решить проблему Splash формы (которая отображает красивый логотип программы пока остальная часть программы стартует). Для этого надо изменить стандартный блок в файле проэкта

Код: Выделить всё

  Application.Initialize;
  Application.CreateForm(TfrmSplash, frmSplash);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;

на такой

Код: Выделить всё

begin
  frmSplash := TfrmSplash.Create(nil);
  try
    frmSplash.Show;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
.....
  finally
    FreeAndNil(frmSplash);
  end;
  Application.Run;
end.

где frmSplash - наша формачка отображаемая при старте (соответственно созданная нами в отдельном модуле )

[volf]

хм одну строчку забыл хотя и без нее может работать
должно быть так

Код: Выделить всё

begin
  Application.Initialize;
  frmSplash := TfrmSplash.Create(nil);
  try
    frmSplash.Show;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
.....
  finally
    FreeAndNil(frmSplash);
  end;
  Application.Run;
end.