Проблемма с закрытием MDIChild'ов

[KirkMETAL]

Delphi...
Многооконный редактор(MDI). На закрытии у меня стоит такая процедура:
.....
If MDIChildCount=0 then Application.Terminate
else
for i:=0 to MdiChildCount-1 do
MDIChildren[i].Close;
Application.Terminate;
.....
У дочерней формы такая процедура:
....
If Memo1.Modified then
begin
beep;
res:=MessageDlg('В файл '+FName+' внесены изменения. Сохранить?',mtConfirmation,mbYesNoC ancel,0);
If res=mrYes then
begin
Form1.SaveFileClick(Sender);
action:=cafree;
end;
If res=mrCancel then Action:=CaNone;
If res=mrNo then Action:=caFree;
end
else
action:=cafree;
....
Проблема в том, что если создано одно или два дочерних окна, то всё нормально закрывается, а вот если три и более то уже после закрытия второго окна появляется "Access Violation и т.д.".
Я новичок в этом деле, и, наверное, не знаю всех тонкостей, подскажите в чем проблема?
Пробовал делать не через for i:=0 to MdiChildCount-1 do
MDIChildren[i].Close;
а через зацикливание процедуру на саму себя с условием но кол-во окон, такая же ошибка...

P.S. Если кто может подскажите ещё как лучше сделать сохранение каждого окна в отдельный файл, а то я там условий понакрутил, а скорее всего есть более простой выход из ситуации, просто я его не знаю...

[mihali4]

Я так и не понял, а где в событии закрытия дочерней формы CLOSE?
FREE, это - хорошо, а где CLOSE?
Ваша проблема - (на мой взгляд) - вы пытаетесь освободить еще занятые (незакрытые) ресурсы...
"Пробовал делать не через for i:=0 to MdiChildCount-1 do
MDIChildren[i].Close;"
Уважаемый! Кау только вы закрыли одну форму, MdiChildCount уже уменьшился... Он не вычисляется больше, увы! Этот параметр цикла - вычисленнная константа (единожды).
Поэтому у вас и возникает "Access Violation".

[KirkMETAL]

Мне бы знать куда его пристроить это Close. Я думас на Free окно закрывается. А если я в конце процедуры добавляю Close, то у меня вообще не закрывается.
Хм... А можно по-подробней насчёт MDIChildCount?
Если я правильно понял, то нужно свой счетчик ставить, и тогда все нормально будет. Например, на OnShow у дочерней поставить n:=n+1 а на OnClose n:=n-1... И тогда делать If n=0 и т.д. ?

[mihali4]

Мне бы знать куда его пристроить это Close

Он "пристраивается", во-первых, на закрытие дочерней формы внутри нее самой.
Во-вторых, если вы хотите "прикрыть" ее из главной формы, сделайте Try Fomrкакая-то.Close (кстати, тогда и Free не нужно), но (я имею в виду Try...Except...) это так, на всякий случай...

[KirkMETAL]

Ну я и говорю, что на на закрытии дочерней формы(TForm2.FormClose) ставлю Close, и вообще не закрывается...
Кстати, затея с счётчиком не помогла...
А что значить ""прикрыть" ёё из главной формы"? Меня интересует именно при закрытии программы вообще, внутри всё окна по отдельности закрываю и все нормально.

[KirkMETAL]

Вот сама прога(Delphi7), так посмотри.
И ещё насчёт закрытия и сохранения что-нибудь подскажи.

[mihali4]

Для начала:
переделываем

procedure TForm1.OpenFileClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
    If n=0 then MNewClick(Sender);
    With ActiveMDIChild as TForm2 do
    begin
      FName:=OpenDialog1.FileName;
      Memo1.Lines.LoadFromFile(FName);
      Caption:=FName;
      If n=0 then MNewClick(Sender);
   end;
end;
end;

и это тоже

procedure TForm1.VihodClick(Sender: TObject);
var i:integer;
begin
  If n=0 then Application.Terminate
  else
  for i:=0 to n-1 do
  MDIChildren[i].Close;
  Application.Terminate;
end;

"Application.Terminate" гробит все, что находится "ниже" главной (родительской) формы, поэтому

if n=0 then Application.Terminate
  else
  for i:=0 to n-1 do
  MDIChildren[i].Close;

- это извращение (прошу прощения за синоним).
Смотрю дальше...
Просмотрел (мельком).
Осталось только одно замечание - "проблема" пишется с одним "М" (мы же интеллигентные люди! Не так ли?).

[KirkMETAL]

Ты говоришь про If n=0 then Application.Terminate или про Application.Terminate?
Если убрать тот что с If ,то если не будет дочерних окон при закрытии то будет ошибка, т.е. это такой обход ошибки.
А вот первые 2 цитаты я не понял...

[mihali4]

А вот первые 2 цитаты я не понял

Пардон... Я теперь пометил красным...

[KirkMETAL]

Сообщение от mihali4

Пардон... Я теперь пометил красным...

Я то понял, что их исправить надо, но что именно. Тот же Application.Terminate заменял на Close, эффекта никакого. А в первой цитате я вообще не понял, что неправильно...