[fofka]

Уже был вопрос про очистку формы при закрытии, код дали. Но есть проблема. Содержимое Едитов и Комбобоксов которые на форме очищаются. У меня форме есть еще PageControl1 с TabSheet1 и TabSheet2, на них едиты и комбобоксы не хотят очищатся.
Подскажите почему не очищаются.

procedure TForm4.N1Click(Sender: TObject);
 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;


 Form4.Close;
 Form1.Visible:=true;
    end;
end;

[M.A.D.M.A.N.]

Ибо для чистки табшитов надо тоже бежать в цикле и чистить.
а вообще, эту штуку желательно сделать рекурсивной.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure clear(aOwner: TWinControl); var   i: integer; begin   for i := 0 to aOwner.ControlCount - 1 do   begin     if aOwner.Control[i] is TEdit /*или баттон, или еще что-то*/ then       /*чистим (aOwner.Control[i] as TEdit).Clear;*/     if (aOwner.Control[i] is TTabSheet) or (aOwner.Control[i] is TPageControl) then       clear(aOwner.Control[i]);   end; end;

Ну как-то так.

[fofka]

Благодарю за ответ. Понял где ошибка.