[fofka]

Добрый день. Не большая проблема. Есть главная форма программы (Form1) из нее открываются другие формы (Form2),(Form3) и т.д.. Если я заполняю во второй форме едиты и комбобоксы и закрываю форму то они остаются заполнены пока не закрою главную форму (Form1). Как лучше сделать что бы при закрытии (Form2) очищались все введенные данные, без закрытия главной формы.
Заранее благодарю за помощь.

[Asinkrit]

В событии формы OnShow, очищать эти поля вручную.

[fofka]

То есть прописывать на каждый компонент? А нет возможности сразу как бы всю форму очистить?

[friz]

ну как вариант

Код:

1 2	for i:=1 to 2 do (form1.FindComponent('Edit'+inttostr(i)) as Tedit).Text:='';

[fofka]

Неа. К сожалению этот вариант не подходит.

[Страдалецъ]

Чем именно не подходит? Имена полей не однотипные? Можно тогда просто по типу контрола чистить:

Код:

1 2 3 4 5 6

Var i: Integer; begin  for i := 0 to ControlCount - 1  do if Controls[i].ClassType = TEdit     then TEdit(Controls[i]).Clear; end;

[fofka]

Не подходит тем что у меня кроме едитов еще и комбобоксы используются. Может с тагами попробовать, чтоб знать какие содержание каких компонентов удалять?

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

type   TForm1 = class(TForm)     Button1: TButton;     Label1: TLabel;     Edit1: TEdit;     ComboBox1: TComboBox;     ListBox1: TListBox;     Memo1: TMemo;     CheckBox1: TCheckBox;     RadioButton1: TRadioButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; ... procedure TForm1.Button1Click(Sender: TObject); var   i: Integer; begin   for i:=0 to ControlCount-1 do     if Controls[i] is TWinControl then       <font color="Red">SendMessage(TWinControl(Controls[i]).Handle, WM_SETTEXT, 0, 0);</font> // SendMessage(TWinControl(Controls[i]).Handle, WM_SETTEXT, 0, Integer(PChar('avatar 3d'))); end;

[iGeTT]

Так удали тогда отдельно все едиты и все комбобоксы таким методом.

[fofka]

Вот отыскал на просторах интернета, но тоже не хочет работать. Тут с Tag-ами

procedure TForm1.Button1Click(Sender: TObject);
var i:integer; 
begin 
i:=0;
while(i = form2.ComponentCount - 1) do 
begin 
  if components[i].Tag = 1 then
  begin
    components[i].Free;
    continue;
  end;
inc(i); 
end; 
end;

Я так понимаю что проверяется Tag компонента, и если равен 1 то очищается.

[stil]

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

Вот отыскал на просторах интернета, но тоже не хочет работать. Тут с Tag-ами

procedure TForm1.Button1Click(Sender: TObject);
var i:integer; 
begin 
i:=0;
while(i = form2.ComponentCount - 1) do 
begin 
  if components[i].Tag = 1 then
  begin
    components[i].Free;
    continue;
  end;
inc(i); 
end; 
end;

Я так понимаю что проверяется Tag компонента, и если равен 1 то очищается.

Ты уничтожаешь объекты на Form1 а условие цикла пишешь form2.ComponentCount - 1. Я обычно цикл For использую

Код:

1	For i:=form2.ComponentCount - 1 downto 0 do...

Может уничтожешь дочернюю форму а когда нужно вновь создашь

[Страдалецъ]

нет этот коду убивает все компоненты с тагом равным 1 на форме.
Я вам уже дал рабочий код для едитов, если нужно еще и комбики, то так:

Код:

1 2 3 4 5 6 7 8 9 10

Var i: Integer; begin  for i := 0 to ControlCount - 1  do begin     if Controls[i].ClassType = TEdit     then TEdit(Controls[i]).Clear;     if Controls[i].ClassType = TComboBox     then TComboBox(Controls[i]).Clear;     end; end;

[NumLock]

Код:

1 2 3 4 5 6 7 8 9

var   i: Integer; begin   for i := 0 to ControlCount - 1 do     if Controls[i].ClassType = TEdit then       TEdit(Controls[i]).Clear     else if Controls[i].ClassType = TComboBox then       TComboBox(Controls[i]).Clear; end;

добавлено позже
пока писал уже ответили)))

[fofka]

Спасибо ВСЕМ большое за участие, и помощь. Все работает, все прекрасно.

[fofka]

Спасибо ВСЕМ большое за советы и помощь. Все зараюотало. Сам не много сглупил.