Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.14;
Скачать: CL | DM;

Вниз

создание и уничтожение компонентов в Run-Time   Найти похожие ветки 

 
pavel_guzhanov ©   (2005-05-27 12:03) [0]

в процессе работы приложения на Panel1 создаются компоненты Image и CheckBox. По нажатию кнопки в приложении мне надо удалить с этой панели только checkbox"ы и Imag"ы, а кнопки, находяшиеся на этой же панели должны остаться.
Я делаю вот так:
 for i:=1 to Panel1.ControlCount do
   if (Panel1.Controls[i] Is TCheckBox) or (Panel1.Controls[i] Is TImage) then
     Panel1.Controls[i].Destroy;
Но, так как количество контролов на панели уменьшается, то я получаю ошибку "List index of bounds(4)", ну или не 4, в зависимости от количества контролов на панели.
А как тогда мне реализовать удаление компонентов, подскажите пожалуйста...


 
Юрий Зотов ©   (2005-05-27 12:07) [1]

with Panel1 do
 for i := ControlCount - 1 downto 0 do
   if (Controls[i] is TCheckBox) or (Controls[i] is TImage) then
     Controls[i].Free;


 
pavel_guzhanov ©   (2005-05-27 12:12) [2]

Спасибо, ща попробую....



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

Текущий архив: 2005.06.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
3-1115883634
SkynoSky
2005-05-12 11:40
2005.06.14
Необходимо разработать БД хоца делать на Делфях и IB но нет при


14-1116761908
Alx2
2005-05-22 15:38
2005.06.14
Задачка о системах выборов и голосования


14-1117095731
Nic87
2005-05-26 12:22
2005.06.14
Вопрос модераьорам


4-1114002475
Mike Evteev
2005-04-20 17:07
2005.06.14
Как поставить задачу на удаленный принтер?


3-1115179948
IBNovice
2005-05-04 08:12
2005.06.14
Помогите с запросом