Удаление компонентов

← →
alll (2007-02-20 18:19) [0]

недавно задавал вопрос как удалить компоненты которые добавлены в
список
var
SelObj:TList;

procedure TForm1.DelImgClick(Sender: TObject);
begin
SelObj.add(Sender as TImage);
end;

И онклику созданного компнента врисваеваю это событие

procedure TForm1.Button1Click(Sender: TObject);
begin
как теперь здесь удалить эти объекты из формы через Tlist
end

← →
RASkov (2007-02-20 18:24) [1]

for n:= 0 to SelObj.Count-1 do TObgect(SelObj[n]).Free;

← →
RASkov (2007-02-20 18:30) [2]

for n:= 0 to SelObj.Count-1 do TObgect(SelObj[n]).Free;
SelObj.Clear;

Можно использовать TObjectList, там все это автоматом можно сделать.

Или перекрыть метод "Notify"

Но зачем мучиться лучше TObjectList

Удаление компонентов Найти похожие ветки