Delphi pagecontrol скрыть закладки

Delphi pagecontrol скрыть закладки

На этом шаге мы рассмотрим компонент TPageControl .

Компонент TPageControl ( Набор страниц ) представляет собой сложенные одна на другую страницы, причем доступ к каждой странице, содержащей свой набор элементов управления, осуществляется через корешки , на которых можно написать название , определяющее содержание страницы. При работе с Delphi вы постоянно сталкиваетесь с этим компонентом. Данный элемент управления удобен тем, что позволяет эффективно использовать ограниченное пространство экрана , создавая эффект книги, которую можно раскрыть на любой странице.

Первоначально компонент, помещенный в форму, будет пустым — не содержащим ни одной страницы. Новая страница добавляется командой New Page ( Создать страницу ) из контекстного меню, так же существуют другие команду: Next Page — переключиться на следующую страницу , Previous Page — переключиться на предыдущую страницу , появляющиеся при щелчке правой кнопки мыши на компоненте. При этом создается новый объект типа TTabSheet . На этапе проектирования между страницами можно переключаться простым щелчком мышки на корешке. В клиентской области каждой страницы можно размещать любые компоненты Delphi . Переключение на другую страницу приведет к стиранию содержимого клиентской области и отображению компонентов, включенных в выбранную страницу. На рис.1 показан компонент TPageControl с восемью страницами.

Рис.1. Компонент TPageControl

Реально все объекты, размещаемые на страницах компонента TPageControl , считаются принадлежащими непосредственно родительской форме — классу типа TForm , поэтому явно указывать страницы при обращении к этим объектам не обязательно.

Рассмотрим свойства компонента TPageControl .

Свойство ActivePageIndex родительского объекта PageControll содержит номер открытой страницы (нумерация начинается с нуля).

Имеется так же свойство ActivePage , которое содержит не номер активной (видимой) страницы, а непосредственно ссылку на нее. Для переключения страниц можно использовать и это свойство, если заранее известно, какую страницу надо показать:

Читайте также:  Чем открыть bin образ

Текущее число страниц хранится в свойстве PageCount , а массив самих страниц — в свойстве Pages , которое не предназначено для изменения. Например, чтобы поменять название первой страницы в процессе работы программы, можно использовать следующий оператор.

Если вы все сделали правильно, то у вас должно получиться следующее.

Рис.2. Использование различных свойств компонента

Кроме того, имеется ряд событий и методов, унаследованных от родительского класса TCustomTabControl , которые приведены ниже.

При работе с компонентом TPageControl имеется возможность добавления к нему новых страниц во время работы программы. Для этого надо создать новую страницу (класс TTabSheet ), и в ее свойстве PageControl указать имя переменной — родительского объекта:

Если вы все сделали правильно, то у вас должно получиться следующее:

Рис.3. Добавление новой страницы

На следующем шаге мы рассмотрим компонент TTabControl .

Данная статья не подлежит комментированию, поскольку её автор ещё не является полноправным участником сообщества. Вы сможете связаться с автором только после того, как он получит приглашение от кого-либо из участников сообщества. До этого момента его username будет скрыт псевдонимом.

Table of Contents:

Элемент управления TPageControl Delphi отображает набор страниц, используемых для создания многостраничного диалогового окна. Каждая страница — вкладка — содержит свои собственные элементы управления. Пользователь выбирает страницу (делает ее видимой), щелкая вкладку страницы, которая появляется в верхней части элемента управления.

Скрытие вкладок PageControl

Если вам нужно создать подобный мастеру пользовательский интерфейс, в котором у вас есть кнопки «Далее» и «Предыдущий», «перемещающие» пользователя вперед и назад по набору страниц (диалогов), вы можете скрыть вкладки PageControl и таким образом, запретить выбор конкретной страницы с помощью мыши пользователя.

Хитрость в настройке TabVisible свойство false для каждого из листов (объект TTabSheet) элемента управления страницы.

Читайте также:  Блокировка регламентных заданий включена

Активация страницы с помощью ActivePage или ActivePageIndex Свойства PageControl будут не поднять По изменению а также OnChanging События.

Чтобы программно установить активную страницу, используйте SelectNextPage метод.

// Скрыть вкладки PageControl вар страница: целое число; начать за страница: = 0 в PageControl1.PageCount — 1 делать начать PageControl1.Pages page .TabVisible: = false; конец; // выбираем первую вкладку PageControl1.ActivePageIndex: = 0; (* Или установите активную страницу непосредственно PageControl1.ActivePage: = TabSheet1; Примечание: вышеупомянутые два НЕ вызывают события OnChanging и OnChange *) конец; процедура TForm1.PageControl1Changing (Отправитель: TObject; вар AllowChange: Boolean); начать // без изменений, если на последней странице AllowChange: = PageControl1.ActivePageIndex

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

Delphi подсказки навигатора:»Как сохранить строковое значение в свойстве тега»Программно определить папку MyDocuments для текущего пользователя Windows

Ссылка на основную публикацию
Adblock detector