Скачать: CL | DM;

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

← →
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;

---

← →
trubin ©   (2007-02-20 21:12) [3]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c