Как переключать активные страницы в `TPageControl` с помощью кнопок в Delphi

Delphi , Компоненты и Классы , Вкладки и Страницы

Как переключать активные страницы в TPageControl с помощью кнопок в Delphi

Если вы используете компонент TPageControl в своем приложении на Delphi и хотите добавить кнопку, нажатие которой будет переводить вас на определенную страницу, вам необходимо обратиться к свойству ActivePage или ActivePageIndex компонента. Вот как это можно сделать:

1. Определение обработчика нажатия кнопки

Для начала, добавьте кнопку на форму и назначьте ей обработчик события OnClick. В этом обработчике вы можете указать, какая именно страница должна стать активной. Например, если у вас есть TabSheet1, и вы хотите перейти на эту страницу, ваш код будет выглядеть следующим образом:

pascal procedure TMyForm.Button1Click(Sender: TObject); begin PageControl1.ActivePage := TabSheet1; end;

1. Использование ActivePageIndex

Вместо ссылки на страницу, вы можете использовать индекс активной страницы. Это может быть полезно, если вам нужно часто изменять активную страницу по какому-либо событию, например, по нажатию кнопки:

pascal procedure TForm1.Button1Click(Sender: TObject); begin PageControl1.ActivePageIndex := 0; // Индекс первой страницы end;

Стоит отметить, что индексация страниц начинается с нуля, то есть первая страница имеет индекс 0.

1. Событие OnChanging

Если вам необходимо контролировать процесс смены страницы, вы можете использовать событие OnChanging компонента TPageControl. Это событие позволяет вам проверить, можно ли производить смену страницы, и установить соответствующее значение переменной AllowChange:

pascal procedure Tfrm_AspireParams.PC_OptionsChanging(Sender: TObject; var AllowChange: Boolean); begin AllowChange := True; // Разрешаем смену страницы if fActivated then begin if BBtn_Timesheets_Save.Enabled then // Пользователь не сохранил изменения на текущей вкладке. begin MessageDlg('Пожалуйста, сохраните страницу сначала', mtInformation, [mbOK], 0); AllowChange := False; // Запрещаем смену страницы end; end; end;

В этом примере, если пользователь пытается переключиться на другую страницу, не сохранив текущие изменения, смена будет запрещена.

Выбор между использованием ActivePage и ActivePageIndex зависит от конкретной ситуации и ваших предпочтений. Индексы могут быть более удобны для автоматизации процесса переключения страниц, в то время как прямая ссылка на страницу может быть более понятной и надежной, так как ссылка на объект страницы всегда остается неизменной, даже если страницы переупорядочены.

Создано по материалам из источника по ссылке.

Объяснение, как использовать компонент `TPageControl` в Delphi для переключения активных страниц с помощью кнопок.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Вкладки и Страницы ::