Форум: "Основная";
Текущий архив: 2003.02.13;
Скачать: [xml.tar.bz2];
ВнизГлюк С PageControl Найти похожие ветки
← →
BLooDMaN (2003-02-03 20:01) [0]Есть pagecontrol динамически создаю TabSheet (кол-во неизвестно
заранее (это редактор файлов c закладками)) чтобы ех все можно было
закрыть использую такой код:
For N:=0 To lbGeneral.Items.Count-1 do begin
pcMain.Pages[N].Free;
lbGeneral.Items.Delete(N);
end;
lbGeneral это Listbox c путями до файлов( но это не важно) Индекс
страници(TabSheet) совпадает с индексом ЛистБокса так вот котда я
это выполняю пропадает ПОЛОВИНА станиц причем через одну! т.е
остаются 1,3,5,7,9 и т.д и вылезает ошибка List index out of bounds
равное половине Listbox.items.count . Блин не знаю что делать .Код в
4 строчки ....... :((((((
Плизз помогите!!!!
← →
Clickmaker (2003-02-03 20:07) [1]For N:=lbGeneral.Items.Count-1 downto 0 do begin
← →
troits (2003-02-03 20:18) [2]:)
for N := 0 To lbGeneral.Items.Count - 1 do
begin
pcMain.Pages[0].Free;
← →
BLooDMaN (2003-02-03 20:51) [3]>Clickmaker ©
ща попробую
>troits ©
это типа шутка да?
НЕ СМЕШНО
← →
BLooDMaN (2003-02-03 20:53) [4]>Clickmaker ©
Спасибо все заработало.
← →
Романов Р.В. (2003-02-03 20:59) [5]
> >troits ©
> это типа шутка да?
Нет это серьезно
← →
bloodman (2003-02-04 00:04) [6]Как же это может быть серьездно если мне надо убрать N-ое (!!) количество странич ,а не первую,а ?? .... Вообщем посмотри код может и поймешь.
← →
Yttrium (2003-02-04 01:58) [7]troits прав!!!
Это действительно не шутка.
while lbGeneral.Count > 0 do
begin
pcMain.Pages[0].Free;
lbGeneral.Items.Delete(0);
end;
Подумай хорошенько!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.016 c