Есть три формы
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» не подходит