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

[mihali4]

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

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

Как и многие задающие вопросы, вы не попробовали самого простого - нажать клавишу F1.
Нажали бы - уже знали, что

To free a form, call its Release method, which destroys the form and releases the memory allocated for it after all its event handlers and those of the components it contains are through executing.

Дальше.

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

Первую строку, как вы убедились - запросто.
Но форма при всем желании не может выполнить операцию Free, поскольку для того, чтобы что-то выполнять - нужно существовать, работать. А вы ее закрыли, ее уже нет.
И сама себя она вычистить из памяти тоже не в состоянии. По-моему, это достаточно очевидно...

[chandrasecar]

Спасибо, mihali4. С Вами согласен. Но чувствую, что все равно ничего не очищается. При каждом открытии формы и использовании "Release method" (записанно на кнопку на главной форме) занимаемая программой память увеличивается на ~160 Кб.

[maladoy]

попробуй

 mOpenFile.hide;
mOpenFile.Free;

[mihali4]

Но чувствую, что все равно ничего не очищается. При каждом открытии формы и использовании "Release method" (записанно на кнопку на главной форме) занимаемая программой память увеличивается на ~160 Кб.

Файлы, которые вы удаляете с диска, тоже не обнуляются сразу. Только помечаются.
Когда появится необходимость, винда использует то место, которое они занимали до сих пор.
Вполне возможно, что нечто подобное происходит в вашем случае и с памятью. Винда - штука темная, кто ее знает, что она там задумала...

[Hottabych]

У меня никуда ничего не утекает, смотрите внимательно, может что-то еще забирает и не освобождает память...

[crc83]

Попробуй создать програму MDI Application. Посмотри как там все устроено.

[chandrasecar]

Большое всем спасибо. Я все это знаю и понимаю. Проблема нашлась: компонент ThemeEngine TeOpenPanel - именно он забирает ресурсы. Хотя, как обнаружилось позже не только он: многие компоненты для работы с папками (ListView). И с OpenDialog память не освобождается (при открытии добавляет 14 Мб). Делал пробную программку без компонентов для работы с дисками и папками - все ОК. Из-за него происходит наращивание занимаемой ОЗУ при каждом запуске-уничтожения формы. Что-то загружается в память и там остается. Что делать, пока не представляю... Если кто знает - буду благодарен.

В общем до сих пор решить эту проблему не удалось. Все притензии к Биллу.

[Format C:]

Приветствую всех.

Вы же при создании в качестве держателя указываете Application (из первого поста)

mOpenFile := TmOpenFile.Create(Application);

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

Здесь есть два выхода:
Либо указывать Nil при создании

mOpenFile := TmOpenFile.Create(Nil);

Либо убрать все собственные уничтожения формы.

Лично я предпочитаю первый способ, как более гибкий.

Поправьте, если ошибся.

[Paul Hindenburg]

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

В общем до сих пор решить эту проблему не удалось. Все притензии к Биллу.

Билл тут не причем)))) в других программах работает все ладко, приведу например как в 1с там есть справочник - дочернее окно, может создаваться только один раз, и в тоже время можно открывать каждый элемент в отдельном окне. вот у мне одно не понятно - как создать окно этого справочника.
P.S.
я тут попутно хэлп читаю вот нашел параметр закрытия окна caHide The form is not closed, but just hidden. Your application can still access a hidden form. - перевод "Форма не закрыта, но только скрыта. Ваше приложение может все еще обращаться к скрытой форме."
Как думаете прокатат?

[Antony41]

Самого волновал этот вопрос. И по моему для того чтобы приложение занимало как можно меньше памяти, каждую форму при открытии и закрытии нужно создавать и УНИЧТОЖАТЬ.

Вот написал пример с использованием функции Assigned для проверки.
Assigned - проверяет существует ли объект. В нашем случае это будет объект типа TForm.

На главной форме:
при нажатии на кнопку создаём форму и показываем её

Application.CreateForm(TForm2, Form2);
Form2.ShowModal;

На форме2 перед закрытием добавляем

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Release;
Form2:=nil;
end;

Теперь при закрытии формы у нас освобождается память т.к Release это тот же FREE, но выполненный в свою очередь, т.е сначало выполнятся все ваши сообщения обрабатываемые данной формой, а уже после она умрёт=)

Для проверки можно использовать

if Assigned(Form2) then
ShowMessage('Форма существует')
else ShowMessage('Форма НЕ существует');