Хочу разобраться с PageControl

[ANNA23]

В PageControl хочу проверять какая TabSheet активна, т.е. пишу:
while(PageControl1->PageControl1->ActivePage)
но не работает, как правильно?

[liljon]

TTabSheet * activePage = PageControl1->ActivePage;
ShowMessage(activePage->Caption);

или смысл вопроса не ясен

[ANNA23]

Нет, я хочу, чтобы дествия выполнялись пока активна закладка (допустим вторая):
<code> while(PageControl1->TabSheet2->ActivePage)
{...} </code>
но не работает, компилятор выдает ошибку

[liljon]

 while (TabSheet2 == PageControl1->ActivePage)
 {
  //Выполняйте действия :)
  Application->ProcessMessages();
 }

[ANNA23]

компилятор пишет "Undefined symbol "TabSheet2""