Сброс в исходное состояние

[maroder22]

Помогите!

Возможно все встречались с этим вопросом.

Требуется при повторном открытии формы сбрасывать значения, всех полей, всех меток, всех переменных, всех визуальных элементов в то состояние в котором они были при первоначальном открытии!

Неужели нужно писать для каждого в отдельности. Код этого модуля больше 2000 строк. Может есть какая то функция или свойство?

Напишите пожалуйста решение этой столь маленькой проблемы!

[artemavd]

Что за поля?

[Stilet]

в то состояние в котором они были при первоначальном открытии!

А что это за состояния? Они где-то запоминаются?

[maroder22]

все что находится на форме.
много полей (3*17+3*17).
также есть метки.
при первом открытии формы, посредством работы программы и таймеров, в эти поля вносятся изменения, за тем результаты вносятся в БД и форма закрывается, при повторном открытии формы, она выглядит так как все было изменено в последний раз, как сделать чтобы при открытии формы заново, все поля и метки принимали исходное состояние (как при первом открытии формы).

все объекты в основном находятся на groupbox'ах.

[Greek9000]

Судя по описанию речь идёт не о главной форме.
Поэтому, когда эта форма закрывается, то она не удаляется из памяти, а просто делается невидимой.

Мне видится 2 варианта решения проблемы:
1. Написать процедуру, которая будет сбрасывать все компоненты в начальное состояние. Раз у автора хватило терпения вручную создать 2000 компонентов, то почему бы ему не накопипастить столько же строк сброса состояний (это лобовое решение).
2. Каждый раз при отображении формы создавать её заново, напр. так:
frmMy := TfrmMy.Create(nil);
Это более элегантное решение, но оно потребует от автора позаботиться о правильном уничтожении формы при закрытии.

[dmitriegorovih]

maroder22 значит делаете вот так, в меню, проект -->> Показать исходник
Удаляете вот эту строчку Application.CreateForm(TForm2, Form2); если ваша форма так называется и вставляете её в обработчик где она у вас должна появляться. По обработчику у form2 или как у вас она называеться? OnHide пишите вот это form12.Free; и всё

[maroder22]

спасибо. помогло.

[m1zantrop]

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

maroder22 значит делаете вот так, в меню, проект -->> Показать исходник
Удаляете вот эту строчку Application.CreateForm(TForm2, Form2); если ваша форма так называется и вставляете её в обработчик где она у вас должна появляться. По обработчику у form2 или как у вас она называеться? OnHide пишите вот это form12.Free; и всё

а можно более простым языком?)