Фсе что на форме и форму в исходное состояние

← →
fil-23 (2012-01-31 21:44) [0]

Создается форма, в ней чтото меняется , нажимается и т.д. как сделать сброс в начальное состояние... ну как будто она только только создалась, но не закрывая ее . форма главная

← →
Юрий Зотов © (2012-01-31 22:02) [1]

F1: ReadComponentRes(Application.MainForm.ClassName, Application.MainForm)

← →
Юрий Зотов © (2012-01-31 22:04) [2]

И вызвать конструктор, но через ссылку на объект, а не на класс:
Application.MainForm.Create(Application)

← →
FIL-23 (2012-01-31 22:34) [3]

Юрий Зотов я так далек от этого. Попробовал , вставил код, выдает ошибку

← →
Юрий Зотов © (2012-01-31 22:36) [4]

> FIL-23 (31.01.12 22:34) [3]
> выдает ошибку

Секретную?

← →
FIL-23 (2012-01-31 22:41) [5]

ну не совсем секретную , но мозг уже взрывает.. содержание ее таково: a component named Button1 already exists

← →
FIL-23 (2012-01-31 22:42) [6]

т.е. я так понимаю надо форму "закрыть" дабы имена компонент не повторялись

← →
Юрий Зотов © (2012-01-31 23:28) [7]

Все даже проще:
procedure TForm1.Button1Click(Sender: TObject); var P: ^TForm; F: TForm; begin P := @Application.Mainform; Application.CreateForm(TComponentClass(ClassType), F); P^ := F; Release; F.Show end;

> Германн © (01.02.12 02:06) [8]

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

Фсе что на форме и форму в исходное состояние Найти похожие ветки