Уничтожение формы

[chandrasecar]

В проекте есть форма, в опциях проекта она записана как доступная, т.е. автоматически не создается. Ее имя mOpenFile и создается при нажатии на кнопку:

mOpenFile := TmOpenFile.Create(Application);
mOpenFile.Show;

Уничтожаем так:

mOpenFile.Close;
mOpenFile.Free;

Но при уничтожении (при освобождении памяти от формы) возникает ошибка в модуле программы "Access violation at adress ###". Форма закрывается но память не освобождается. Что-то я не так делаю?

[Kotofff]

mOpenFile.Free - не обязательно ...
достаточно будет mOpenFile.Close ...

[Hottabych]

Если уничтожаем, то mOpenFile.Destroy

[FANATID]

try
mOpenFile.Close;
except
end;

[Kotofff]

Если уничтожаем, то mOpenFile.Destroy

Да но потом в процессе работы наверное понадобится опять показать окно и тогда опять придется mOpenFile := TmOpenFile.Create ...
Просто при закрытии основной программы она вычистит все созданные ею формы и Destroy вообще может не понадобится.

[Hottabych]

Ну, chandrasecar хотел уничтожить окно...

[chandrasecar]

Благодарю всех за ответы. Дело вот в чем. Форма mOpenFile имеет кнопку "Отмена", к которой привязан

mOpenFile.Close;
mOpenFile.Free;

А если сделать кнопку на главной форме и привязать этот же код, то все становится ОК.
При запуске программы, она занимает память в 18 Мб, а при вызове окна mOpenFile - 26 Мб. После уничтожения этого окна - 25 Мб. Я думаю что память не вычищяется полностью.?
И потом как привязать код выше к кнопке на форме которую уничтожаем?

[Hottabych]

Чо-то слишком много у вас форма занимает памяти...
Если я правильно понял, то лучше сделать так: mOpenFile.ShowModal, кнопкам присвоить mOpenFile.ModalResult и всё.

[Kotofff]

При запуске программы, она занимает память в 18 Мб

Используется контроль памяти в программе ?

После уничтожения этого окна - 25 Мб. Я думаю что память не вычищяется полностью.?

Просто память остается выделенной для него или на другие нужды основной программы... и очистится после закрытия основной проги

И потом как привязать код выше к кнопке на форме которую уничтожаем?

Здесь считаю только mOpenFile.Close достаточно ...
Если же конечно форма немодальная. С модальной немного проще - просто кнопке в этом случае присваиваешь какой-нибудь ModalResult и окно закроется само и к тому же вернет этот результат.

[chandrasecar]

У меня форма mOpenFile получается модальной. Назначение таких форм - экономия ресурсов памяти. А у меня при каждом новом вызове формы занимаемая программой память увеличивается на 160 Кб (смотрел через диспетчер задач). Запуская проект, как я говорил выше, выделяется 18 Мб, запуская форму - 26 (+160 Кб при каждом новом вызове). По идее, применяя процедуру Free, должно сново быть 18 Мб. Дело в том что таких форм много, и при работе с программой, придется запастись большим объемом ОЗУ.
Судя по всему, созданные формы копятся в памяти... Как память освободить от таких форм?
Кстати, пробовал ShowModal - ничего...
Вот так вызываем:

mOpenFile := TmOpenFile.Create(Self);
try
  mOpenFile.ShowModal;
finally 
  mOpenFile.Free;
end;

Вот так закрываем:

mOpenFile.ModalResult:=mrCancel;

Я уже, вроде, все перепробовал, а память не очищается.