|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.05.2009, 18:08 | #1 |
Форумчанин
Регистрация: 28.03.2009
Сообщений: 393
|
TPageControl -срочно нужна помощь!
У меня слудующая задача: мне нужно реализовать тест при помощи єтого копонента(всего 5 предметов). На первой странице я єто здала но как реализовать на остальних??Просто для єтого мне нужно знать номер активной страницы который поидее меняеться когда пользователь клацает на другую закладку. Но проблема в том я незнаю как организовать проверку такую!!1Пробую-пробую неполучаеться помогите пожалуста!!!
Заранее спасибо!!!! ""Сериалы и компьютерные игры это словно вторая жизнь, которою ты проживаешь, во главе главного героя или персонажа, параллельно своей!""
|
16.05.2009, 18:13 | #2 |
Форумчанин
Регистрация: 22.02.2009
Сообщений: 875
|
Когда пользователь нажимает на другую вкладку, срабатывает событие PageControl'а onChange
Активную вкладку можно узнать как PageControl1.ActivePage Код:
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
|
16.05.2009, 18:23 | #3 |
Форумчанин
Регистрация: 28.03.2009
Сообщений: 393
|
Спасибо чё вырисовываетсья)))))... покрайней мере пока!
""Сериалы и компьютерные игры это словно вторая жизнь, которою ты проживаешь, во главе главного героя или персонажа, параллельно своей!""
|
16.05.2009, 18:28 | #4 |
Форумчанин
Регистрация: 22.02.2009
Сообщений: 875
|
Всегда пожалуйста, удачи вам!
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
|
16.05.2009, 18:35 | #5 |
Форумчанин
Регистрация: 28.03.2009
Сообщений: 393
|
Еще есть вопрос почему номер активной страницы неменяеться при таком коде:
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 - глобальная переменная целого типа! ""Сериалы и компьютерные игры это словно вторая жизнь, которою ты проживаешь, во главе главного героя или персонажа, параллельно своей!""
|
16.05.2009, 19:14 | #6 |
Студент, не
Старожил
Регистрация: 29.01.2009
Сообщений: 2,067
|
Код:
I am the First of Cyber Evolution...
I am the First to Program your Future... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна срочно помощь!!! | Магомед | Microsoft Office Access | 2 | 13.05.2009 15:24 |
Срочно нужна помощь на С++ | KlubNichka | Помощь студентам | 0 | 26.04.2009 10:50 |
Срочно нужна помощь!!!! | Ntfser | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 26.10.2008 01:03 |
СРОЧНО нужна помощь!!! | •ScReam•™ | Помощь студентам | 1 | 13.05.2007 12:41 |