FIL23,
Если ты устраиваешь удаление вручную, беспокоясь, что они повиснут мусором потом, когда всё кончится, то зря, поскольку родитель, перед тем, как сдохнуть, убьет всех своих потомков. Если же есть другие причины, чтобы удалять их, то код корректный, ищи ошибку в другом месте.
И не надо путать их с контролами, это совсем другая история, ибо контрол, лежащий на TWinControl, может ему и не принадлежать. Положенный куда-нибудь Control будет удален при удалении своего потомка, а не объекта своего размещения. Можно, например, кидать на форму другую форму со всем её набранным в дизайнере функционалом и набором своих контролов. И вот если родителем этой формы будет наша парент-форма или её контрол, то можно не париться с её удалением, а если родителем формы является nil или Application, то удалить надо вручную.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
procedure TForm6.Button1Click(Sender: TObject);
var i :integer;
begin
for i := 1 to 1000 do TLabel.Create(Button1);
showmessage(inttostr(Button1.ComponentCount));
showmessage(inttostr(Button1.ControlCount));
//for i := Button1.ComponentCount-1 downto 0 do Button1.components[i].free;
//while Button1.ComponentCount>0 do Button1.Components[0].free;
With Button1 do while ComponentCount>0 do Components[ComponentCount-1].free;
showmessage(inttostr(Button1.ComponentCount));
showmessage(inttostr(Button1.ControlCount));
end;
:))
