Закрыть форму при открытии новой с Show

[KBO]

Доброе время суток форумчане. Есть три формы

Unit1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  Form2.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form3 := TForm3.Create(Self);
  Form3.ShowModal;
end;

Unit3

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Button1Click(Sender);
  Form3 := nil;
end;

Когда в Form1 нажимается кнопка Button2, открывается Form3. При закрытии Form3, открывается Form2.
Мне нужно, чтоб при закрытии Form3, не только открывалась Form2, но и ЗАКРЫВАЛАСЬ Form3. Сейчас она не закрывается, а остается висеть, находясь за Form2. Все формы должны открываться «ShowModal», метод «Show» не подходит.

Тут на одном из сайтов видел:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  with TForm3.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;

  Button1Click;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
end;

Но в этом коде, после создания формы, они все равно равны "nil", а я проверяю сущесьвование формы - мне не подходит

Заранее спасибо за ответ.

[evg_m]

Вар 1. Форма сама должна знать как вести себя при ее закрытии
Delphi Help

OnClose event (TCustomForm)
Occurs when the form closes.
CloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;

The TCloseEvent type points to a method that handles the closing of a form. The value of the Action parameter determines if the form actually closes. These are the possible values of Action:

Value Meaning

caNone The form is not allowed to close, so nothing happens.
caHide The form is not closed, but just hidden. Your application can still access a hidden form.
caFree The form is closed and all allocated memory for the form is freed.
caMinimize The form is minimized, rather than closed. This is the default action for MDI child forms.

CaNone значение по умолчанию
а тебе надо СaFree.
TForm2, TForm3, ... назначаем указанный обработчик события (вкладка events of ObjectInspector) и ПРИСВАИВАЕМ нужное значение.

Вар 2. Управляем формой полностью сами.

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TForm; // используем ЛОКАЛЬНЫЕ переменные
begin
  f:= TForm2.Create(Self); // создали
  f.ShowModal; // показали и дождались 
  f.Release; // ВЕЖЛИВО попросили об удалении (РЕКОМЕНДОВАНО 
 ИЛИ!!!
  f.Free; // СТРОГО сказали удалить
end;

хотя обычно в таких случаях делают дополнительные действия в зависимости от ВАРИАНТов закрытия

if f.ShowModal =mrOK then begin
....здесь мы ЕЩЕ можем использовать какие-то свойства нашей закрытой , но ПОКА не уничтоженной f: TForm2;
end
else begin
....
end;
f.Release; // а вот ПОСЛЕ этого уже не сможем

[Aliens_wolfs]

Попробуйте так

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(nil) do
  try
    ShowModal;
  finally
    Free;
    Button2Click(nil);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  with TForm3.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

Ну или с доп проверкой

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(nil) do
if ShowModal <> mrOK then
begin
    Free;
    Button2Click(nil);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  with TForm3.Create(nil) do
  if ShowModal <> mrOK then
    Free;
end;

Чтобы уничтожались формы при закрытии, нужно прописать так в формах

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;

в самом проекте уберите создание этих форм

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

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

//Убрать это
 //Application.CreateForm(TForm2, Form2);
  //Application.CreateForm(TForm3, Form3);

  Application.Run;
end.

[Аватар]

Но в этом коде, после создания формы, они все равно равны "nil", а я проверяю сущесьвование формы - мне не подходит

А чего им быть не nil, если ни чего не записываешь в переменную? TForm2.Create(nil) сама по себе ни чего не запишет в переменную Form2. Вариант Form2:=TForm2.Create(nil) запишет. Form2.Free тоже nil не запихнет в Form2. Или ручками или FreeAndNil. Ну и Create(nil) не использовал бы. Create(Application)

[Aliens_wolfs]

Можно еще попробовать так nil сделать в событии уничтожения формы

procedure TForm3.FormDestroy(Sender: TObject);
begin
Sender:= nil;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
Sender:= nil;
end;

Ну или так как подсказал Аватар

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2:= TForm2.Create(nil);
if Form2.ShowModal <> mrOK then
begin
   FreeAndNil(Form3);
    Button2Click(nil);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form3:= TForm3.Create(nil);
  if Form3.ShowModal <> mrOK then
    FreeAndNil(Form3);
end;

[KBO]

спасибо получилось