Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.02.2014, 14:43   #1
Lokki23
Пользователь
 
Регистрация: 19.11.2013
Сообщений: 57
По умолчанию Удаление компонентов

есть PageControl на котором динамически создано парочку TabSheet-ов. На которих ScrollBox А на них комбо бокси і Лейбли. Всесоздаю динамически:

page = new TTabSheet(Handle);
page->Caption = Table2->Fields->Fields[1]->AsString;
page->PageControl = PageControl1;
PageControl1->ActivePageIndex = PageControl1->PageCount-1;

skrol = new TScrollBox(Form1);
skrol->Parent = page;
skrol->Width = page->Width-10;
skrol->Height = page->Height-100;
skrol->BorderStyle = bsNone;




/////////////////////////////// Опис кожної вкладки
////////////////////////////////Дні тижня

label = new TLabel(Form1);
label->Parent = skrol;
label->Visible = true;
label->Top = 20;
label->Left = Form1->Width/2-67;
label->Caption ="Понеділок" ;
label->Name = "Label" +IntToStr(i+20);
label->Font->Color = clMenuHighlight;
label->Font->Size = 17;

btnp = new TSpeedButton(Form1);
btnp->Parent = skrol;
btnp->Width = 200;
btnp->Height = 50;
btnp->Caption = "Назад";
btnp->Font->Size = 14;
btnp->Font->Color = clBlack;
btnp->Flat = true;
btnp->Font->Name = "Times New Roman";
btnp->OnClick = SpeedClick;

Такой вопрос если я правильно соображаю то при уделении TabSheet все елементи на нем тоже автоматически удаляются. Я прав?

Но после удалении
for(int i=PageControl1->PageCount;i>0;i--)
delete PageControl1->Pages[PageControl1->PageCount-i];

потом опять создаю TabSheet ну и СкролБох и тд. Нажатием на туже кнопку . И появляются ошыбки .
Мне кажется что компоненти не удалились и опять создаются.

Пробивал менять skrol = new TScrollBox(Form1); на skrol = new TScrollBox(page); не помагает
Lokki23 вне форума Ответить с цитированием
Старый 15.02.2014, 15:10   #2
Lokki23
Пользователь
 
Регистрация: 19.11.2013
Сообщений: 57
По умолчанию

Тема закрита. Опять протупил. Да ето диагноз.
Lokki23 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
удаление компонентов microsoft office NinaSSS Windows 1 17.06.2013 13:00
Динамическое удаление компонентов или скрытие qiperman Общие вопросы Delphi 1 08.05.2013 19:21
Динамическое создание и удаление компонентов на форме The SCS Общие вопросы Delphi 1 11.02.2012 13:11
Удаление компонентов Muniz Компоненты Delphi 5 09.01.2010 19:12
Удаление компонентов SanekIrk Общие вопросы Delphi 8 16.08.2008 09:26