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

[Sciv]

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

Писанину разводить...

Быстрее форму заново создать.

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

Согласен. Только имхо целесообразней не FindComponent, а просто покомпонентный цикл: Form1.Component[i] и тд Естественно с проверкой наличия поля text у компонента... ну или проверять класс компонента.

[FleXik]

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

Писанину разводить...

Быстрее форму заново создать.

Можна цикл использовать как написал Кольша

[eval]

цикл использовать как написал Кольша

расстрел, через повешанье, с конфискацией.

[Алексей_2012]

По-моему так надо))

var i:integer
begin
 for i := 0 to ComponentCount - 1 do
  begin
    if (Components[i] is TEdit) then
    begin
       (Components[i] as TEdit).Clear;end;
end;
end;

[New man]

Form1.ButtonClick(sender:TObject);
var NewForm:TForm2;
begin
   NewForm:=TForm2.Create(Form1);
   NewForm.Show;
end;



TForm2.Close(Sender:Tobject);
begin
  Destroy
end;

[Аватар]

TForm2.Close(Sender:Tobject);
begin
  Destroy
end;

О-о-о. Так нельзя. spamer в #3 написал как можно

[WhiteForge]

Смысл от очистки ? Очищать каждый элемент, его состояние, обнулять циклы и т д не подходит. Открыл форму, она выгрузилась в память.

Делаеш Close она просто уходит в hide (где вообще различия между ними тогда), форма остается в памяти до тех пор пока не закроеш основную - вот где беда

[WhiteForge]

Сообщение от New man

Form1.ButtonClick(sender:TObject);
var NewForm:TForm2;
begin
   NewForm:=TForm2.Create(Form1);
   NewForm.Show;
end;



TForm2.Close(Sender:Tobject);
begin
  Destroy
end;

Код выглядит подходящим, нечто подобное пробовал, попробую этот код Спасибо, мб и сработает

[саша40]

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

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


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

То пусть тогда пусть он копирует код(Form2.Edit1.Text:='' и заново вставляет, только цыфру меняет на номер компонента.
P.S. Жаль что нет ещё раздельно написание имени компонента, а то можно цыклом.

[Sciv]

Жаль что нет ещё раздельно написание имени компонента, а то можно цыклом.

Можно. Через TForm.ControlCount и TForm.Controls[i]