Видимость страниц PageControl

[AJlEKCA]

здрасти. ситуация такая - программный продукт с модальной формой авторизации, после нее открывается основная форма. на ней расположен PageControl. надо в зависимости от того кто авторизовался делать видимыми определенные вкладки. в обработчик события OnShow главной формы написала код для проверки

if FMain.CBUser.ItemIndex=1 then
 begin
 TS5.TabVisible:=False;
 TS6.TabVisible:=False;
 TS7.TabVisible:=False;
 TS8.TabVisible:=False;
 end
 else
 if FMain.CBUser.ItemIndex=0 then
 begin
   TS1.TabVisible:=False;
   TS2.TabVisible:=False;
   TS3.TabVisible:=False;
   TS4.TabVisible:=False;
 end;

форма нормально открывается, но стоит попытаться перейти на другую страницу как вылетает сообщение с текстом

List index out of bounds (9)

цифра меняется в зависимости от того на какую страницу перехожу. переход запрограммирован в обработчике события OnClick разных кнопок кодом

PCMain.TabIndex:=0;

цифра меняется в зависимости от индекса страницы.
помогите решить эту проблему

[evg_m]

List index out of bounds (9)

Значение индекса 9 находится вне допустимого диапазона.
в приведенных фрагментах кода

PCMain.TabIndex:=0;

этого однозначно нет.

[AJlEKCA]

Сообщение от evg_m

Значение индекса 9 находится вне допустимого диапазона.
в приведенных фрагментах кода

этого однозначно нет.

ItemIndex присваивается автоматически при создании страницы, нумерация начинается с нуля, так же как и в ListBox, ComboBox, Memo и тому подобных компонентах.
К тому же когда все страницы видны никаких ошибок не вылетает, всё прекрасно работает. В читате кода написан 0 как пример. Если там стоит 1, то переход осуществляется на ту страницу, которая была создана второй и стоит вторая.

[evg_m]

ItemIndex присваивается автоматически

Вы пытаетесь либо обратиться к 9(по номеру) элементу массива, либо установить текущим 9 элемент списка. В то время как там не более чем [0..8].

[AJlEKCA]

Сообщение от evg_m

Вы пытаетесь либо обратиться к 9(по номеру) элементу массива, либо установить текущим 9 элемент списка. В то время как там не более чем [0..8].

в коде 9 ВООБЩЕ нигде нет

[_Engine_]

Может у Вас for i := 1 to 10 , например? Откуда нам знать, описание ошибки Вам сказали, разбирайтесь сами или приводите код полностью.

[AJlEKCA]

Сообщение от _Engine_

Может у Вас for i := 1 to 10 , например? Откуда нам знать, описание ошибки Вам сказали, разбирайтесь сами или приводите код полностью.

циклы только в обработке данных, все закрыты.

[vovk]

Поставте бряк в том месте кода где предполагается ошибка, и прогоните код нажимая F8. И покажите кусок кода где ошибка вылетает.
Я так думаю что всё просто гдето обращается к PageControl1.Pages по номеру

PageControl1.PageCount

а не к

PageControl1.PageCount -1

или к другому компоненту по такой же схеме.

[ex.cluz]

Я так понимаю, у вас после авторизации только 4 вкладки доступны для взаимодействия с ними юзера. А где-нибудь в коде попадается индекс 8. А поскольку индексация вкладок идет с 0, то и появляется ошибка (обращаться-то можно только к индексам с 0 до 7).
Кстати, какой код висит на обработчике смены вкладок?

И еще - вы учитываете, что вкладки скрываются, но не уничтожаются, поэтому индексация идет до 7, но обращаться можно только к видимым вкладкам (по крайней мере так, как это делаете вы, т.е. присваивая индекс)? Т.е. либо от 0 до 3, либо от 4 до 7.

[AJlEKCA]

Сообщение от ex.cluz

Я так понимаю, у вас после авторизации только 4 вкладки доступны для взаимодействия с ними юзера. А где-нибудь в коде попадается индекс 8. А поскольку индексация вкладок идет с 0, то и появляется ошибка (обращаться-то можно только к индексам с 0 до 7).
Кстати, какой код висит на обработчике смены вкладок?

И еще - вы учитываете, что вкладки скрываются, но не уничтожаются, поэтому индексация идет до 7, но обращаться можно только к видимым вкладкам (по крайней мере так, как это делаете вы, т.е. присваивая индекс)? Т.е. либо от 0 до 3, либо от 4 до 7.

вот сейчас специально предположила, что я либо слепая либо не знаю кода, открыла модуль в блокноте, набрала в поиске восьмерку и прошлась по всему тексту. результат - индекса такого нигде нет, только в именах компонентов попадается.
да, обращение идет только к видемым компонентам, иначе скрывать их не имело бы смысла. при авторизации одного пользователя, которому доступны вкладки от 0 до 3, никаких проблем нет, а при авторизации другого начинается вот такая история

List index out of bounds (9)

вкладки меняютс по коду

PCMain.TabIndex:=0;

вместо 0 стоят цифры от 1 до 3 для одного пользователя, и от 5 до 7 для другого