TPageControl -срочно нужна помощь!

У меня слудующая задача: мне нужно реализовать тест при помощи єтого копонента(всего 5 предметов). На первой странице я єто здала но как реализовать на остальних??Просто для єтого мне нужно знать номер активной страницы который поидее меняеться когда пользователь клацает на другую закладку. Но проблема в том я незнаю как организовать проверку такую!!1Пробую-пробую неполучаеться помогите пожалуста!!! Заранее спасибо!!!!
5 ответов

Когда пользователь нажимает на другую вкладку, срабатывает событие PageControl'а onChange Активную вкладку можно узнать как PageControl1.ActivePage
procedure TForm1.PageControl1Change(Sender: TObject);
begin
 ShowMessage(PageControl1.ActivePage.Caption);
end;


Спасибо чё вырисовываетсья)))))... покрайней мере пока!


Всегда пожалуйста, удачи вам!


Еще есть вопрос почему номер активной страницы неменяеться при таком коде:procedure TForm1.FormCreate(Sender: TObject); begin label10.Caption := inttostr(n); end;а при таком менеяеться:procedure TForm1.PageControl1Change(Sender: TObject); begin ShowMessage(PageControl1.ActivePage .Caption); n := PageControl1.ActivePageIndex; label10.Caption := inttostr(n); end;N - глобальная переменная целого типа!


Label10.Caption:=IntToStr(PageControl1.ActivePageIndex);