Расходование памяти формой

Posted by Chas under Delphi

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

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('Форма НЕ существует');

тема на форуме

Похожие статьи

• Задать свой обработчик событий у формы
• Авторизация пользователя в программе
• Уничтожить Form1 при открытии Form2
• Как загрузить все картинки один раз при создании формы
• Перемещение формы не за заголовок
• Динамическое создание форм
• Получить значение переменной из одной формы в другой
• Создание формы приветствия
• Создать форму внутри ScrollBox
• Создание большого количества форм или фреймов