Вопросы по TPageControl

[GAMER]

Использую PageControl1.

При этом встречаются в коде конструкции, типа:
PageControl1.ActivePageIndex in [1,2,3],
case PageControl1.ActivePageIndex of
и другие, которые привязываються к активному индексу страницы.
Если же я перемещу страницы, то все это летит в трам-тарары. Есть ли методика, как по другому это сделать.

[alexs]

PageControl1.ActivePage

[GAMER]

То есть только через if
типа
if PageControl1.ActivePage=TabSheet6?

[alexs]

Да

Добавлено спустя 53 секунды:
В принципе ещё можно через Tag у активной страницы - если он у страниц не меняется.