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

Вниз

Подскажите как очистить GroupBox от визуальных компонентов ?   Найти похожие ветки 

← →
Kostafey ©   (2007-04-26 02:29) [0]

Если создан 1 компонет, то все работает:

     with TLabel.Create(FormOtchetList) do
     begin
       Parent := GroupBoxParams;
       Caption := "Familiya";
       Left := 16;
       Top := 16;
     end;
...
 for i := 0 to GroupBoxParams.ControlCount - 1 do
 begin
   GroupBoxParams.Controls[i].Free;
 end;

Если уже 2, то вылетает с сообщением "List index out of bounds (22)":

     with TLabel.Create(FormOtchetList) do
     begin
       Parent := GroupBoxParams;
       Caption := "Familiya";
       Left := 16;
       Top := 16;
     end;
     with TEdit.Create(FormOtchetList) do
     begin
       Parent := GroupBoxParams;
       Left := 96;
       Top := 16;
     end;
...
 for i := 0 to GroupBoxParams.ControlCount - 1 do
 begin
   GroupBoxParams.Controls[i].Free;
 end;

Пробовал так - тоже бесполезно:

 for i := 0 to ComponentCount - 1 do
 begin
   if (Components[i] is TControl) then if (Components[i] as TControl).Parent=GroupBoxParams
   then Components[i].Free;
 end;


---

← →
Джо ©   (2007-04-26 02:32) [1]

for I := Count-1 downto 0 do

---

← →
Kostafey ©   (2007-04-26 21:49) [2]

> for I := Count-1 downto 0 do

Ну конечно, удалив компонент, происходит переиндексация оставшихся.
Спасибо !

---

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

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

Наверх

Память: 0.47 MB
Время: 0.046 c