Закрыть вторую форму

[WhiteForge]

Возникла проблема, помогите решить.

Как закрыть вторую форму ?

Есть Form1, а из неё вызывается Form2.

в Form2 есть Edit1, в который я вписал какой-то текст, затем закрыл форму через крестик, затем, открыв её сново (из Form1), я вижу то что я написал в Edit1.

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

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

Form2.Close - открывается уже с инфой
Form2.Hide - ну естественно просто скроется

Как только запускаю Form1 и запускаю из неё Form2, то вторая форма еще и выплывает, а если я её закрою и открою опять, то она просто как будто из Хайда выйдет и уже с изменениями пользователя.

Как её вернуть в первоначальный вид ?!

[eval]

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

[spamer]

Если форма открывается не модально, то в обработчике события формы OnClose, параметру Action можно просто присвоить значение caFree, т.е.

Action := caFree;

А вобще стоит почитать про работу с формами в Delphi, т.к. есть некоторые нюансы...

[WhiteForge]

Да, но это я уже перепробовал

что Free что Form2.Destroy - её просто уничтожают и больше её не открыть

[eval]

Потому что ее надо выбросить из автосоздаваемых, также удалить переменную Form2. И начать работать правильно.

[FleXik]

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form2.Edit1.Clear;
end;

Если я правильно понял...

[саша40]

Народ чё вы паритесь. Вот код:

//процедура с которой ты вызываешь форму
Form2.Show;
Form2.Edit1.Text:='';

Незабудь прописать Unit от ВТОРОЙ ФОРМЫ.

[Sciv]

саша40, хороший код, если на форме 2-3 едита... а если 20-30?


P.S. Не смейтесь и не бейте сильно, но у нас на работе есть такая программа, в которой на форме порядка 30 полей (правда, писана на эклипсе)

[FleXik]

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

саша40, хороший код, если на форме 2-3 едита... а если 20-30?


P.S. Не смейтесь и не бейте сильно, но у нас на работе есть такая программа, в которой на форме порядка 30 полей (правда, писана на эклипсе)

Ну так по очереди в коде каждый Edit очищяешь

Edit1.Clear; или Edit1.Text:='';
Edit2.Clear; или Edit2.Text:='';
Edit3.Clear; или Edit3.Text:='';
Edit4.Clear; или Edit4.Text:='';
Edit5.Clear; или Edit5.Text:='';
Edit6.Clear; или Edit6.Text:='';
Edit7.Clear; или Edit7.Text:='';
Edit8.Clear; или Edit8.Text:='';
Edit9.Clear; или Edit9.Text:='';
Edit10.Clear; или Edit10.Text:='';

и так далее...

[Кольша]

Не проще использовать цикл и findcomponent?