|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Форма в первозданном виде
Добрый день.
Как сделать чтобы форма всегда открывалась в исходном виде, без сохранения всего того, что сделал с ней пользователь (заполнил поля, сделал видимыми панели и т.д.)? Сейчас делаю перебором всех компонентов и всего того что могло быть изменено, т.е. Edit := '', visible := false и т.д. Форма открывается через ShowModal, а закрывается через Close. |
#2
|
|||
|
|||
Например, не использовать автоматически создающуюся форму, а создавать новый экземпляр каждый раз перед показом:
1. Удалить форму из списка автоматически создаваемых. 2. Код:
with TMyModelForm.Create(Application) Do Try If ShowModal = mrOk Then ... Finally Free; End; |