Цитата:
|
Сообщение от Yurk@
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end; |
Да, на закрытии форм это и прописано.
Вот код из главной формы для открытия другой
Код:
Form2:=TForm2.Create(self);
Form2.Show;
Из второй формы открываю третью
Код:
Form3:=TForm3.Create(self);
Form3.Show;
И из нее хочу закрыть Form1.
Пишу Form2.Close;
Закрываются обе Form2, Form3.
Если закрывать крестиком ввеху, то нормально закрывается та форма которая и должна быть закрыта.
Чешу репу....