[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... 

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