dhomyakov
Зарегистрирован: 26.03.2010 Сообщения: 3
|
Добавлено: Пн Апр 05 2010 16:48 Заголовок сообщения: Как удалить компоненты из контейнера GroupBox |
|
|
Все здрасти!
есть массив чекбоксов создается динамически и запихивается в гроуп обкс (RzSpec)
Код: |
// Автомобильный бизнес
if RzProf.Text = 'Автомобильный бизнес' then
begin
for i:=1 to 9 do
begin
chkbx[i]:=TRzCheckBox.Create(NewAnket) ;
chkbx[i].Parent := RzSpec;
chkbx[i].HotTrack :=true;
chkbx[i].Font.Size := 12;
chkbx[i].Font.Name := 'Times New Roman';
chkbx[i].Font.Style:= [fsBold];
chkbx[i].Left := szl;
chkbx[i].Top := szt;
chkbx[i].Width := 260;
szl:=szl+280;
if szl+100 > RzSpec.Width then
begin
szl:=30;
szt:=szt+30;
end;
RzSpec.Height := 41 + szt;
case i of
1: chkbx[i].Caption := 'Автослесарь';
2: chkbx[i].Caption := 'Лизинг';
3: chkbx[i].Caption := 'Продажы';
4: chkbx[i].Caption := '1';
5: chkbx[i].Caption := '2';
6: chkbx[i].Caption := '3';
7: chkbx[i].Caption := '3';
8: chkbx[i].Caption := '4';
9: chkbx[i].Caption := '5';
end;
end;
end;
|
Проблема такая: при выборе другого элемента в RzProf (Комбобокс)
нужно очистить групбокс от всех компонентов. Создание чекбоксов происходит при срабатывание события OnCloseUp (Закрытие списка) в комбобоксе.
Плиз хэлп! |
|