[galich]

Главная форма MDI. Открываю несколько MDIChild форм. Программно хочу закрыть какое то окно (Close). Закрываются все окна, а не то которое нужно. Где косяк?

[Aristarh Dark]

Имхо, косяк в ДНК

[Yurk@]

Код:

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

[dimsog]

Смотри код. Косяк скорее всего в нем.

[galich]

Сообщение от 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.
Если закрывать крестиком ввеху, то нормально закрывается та форма которая и должна быть закрыта.

Чешу репу....

[dimsog]

Может этот пример поможет?

[lmikle]

Батенька, а что же вы хотели, если у вас родителем окон выступают MDIChild-формы. Естественно, закрываясь, такая форма закрывает и потомков. Формы надо создавать с родителем Application:

Код:

Form1 := TForm1.Create(Application);
...
Form2 := TForm2.Create(Application);
...
Form3 := TForm3.Create(Application);