[fofka]

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

[Asinkrit]

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

[fofka]

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

[friz]

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

Код:

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

[fofka]

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

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

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

Код:

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

[fofka]

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

[NumLock]

Код:

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
      SendMessage(TWinControl(Controls[i]).Handle, WM_SETTEXT, 0, 0);
// 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 использую

Код:

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

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

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

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

Код:

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]

Код:

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]

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