![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Удаление компонентов [D7, XP]
alll © (2007-02-20 18:19:00)недавно задавал вопрос как удалить компоненты которые добавлены в
список
var
SelObj:TList;
procedure TForm1.DelImgClick(Sender: TObject);
begin
SelObj.add(Sender as TImage);
end;
И онклику созданного компнента врисваеваю это событие
procedure TForm1.Button1Click(Sender: TObject);
begin
как теперь здесь удалить эти объекты из формы через Tlist
end
trubin (2007-02-20 21:12:00) [1]Можно использовать TObjectList, там все это автоматом можно сделать.
Или перекрыть метод "Notify"
Но зачем мучиться лучше TObjectList
RASkov (2007-02-20 18:30:00) [2]for n:= 0 to SelObj.Count-1 do TObgect(SelObj[n]).Free;
SelObj.Clear;
RASkov (2007-02-20 18:24:00) [3]for n:= 0 to SelObj.Count-1 do TObgect(SelObj[n]).Free;