Практическая работа. Многостраничный блокнот PageControl

Многостраничный блокнот PageControl.

Многостраничный блокнот PageControl, в отличие от предыдущего компонента имеет несколько страниц TabSheet, расположенных одна под другой. Каждая страница имеет свою закладку и может содержать свой набор помещенных на нее компонентов.

Чтобы добавить новую страницу, удалить или выбрать ранее вставленную, щелкните по компоненту правой кнопкой мыши и выберите New Page (новая страница), Next Page (следующая страница), Previous Page (предыдущая страница) или Delete Page (удалить страницу).

Каждая страница TabSheet имеет свои свойства, которые можно изменить через Инспектор объектов, прежде выделив её.

Свойства компонента PageControl:

Свойство	Значение
ActivePage	Имя активной страницы
Pages	Список страниц блокнота, к которым можно обращаться по номеру
Style	Вид закладок. tsTabs – стандартные, объемного вида tsButtons – в виде кнопок tsFlatButtons – в виде плоских кнопок
ScrollOpposite	Если MultiLine=True, строка с выбранной закладной перемещается в первый ряд.
HotTrack	Определяет подсвечивание закладки
TabWidth	Ширина закладки
TabHeight	Высота закладки
TabPosition	Расположение закладок tpTop ‑ сверху tpBottom ‑ снизу tpLeft ‑ слева tpRight – справа
ActivePageIndex	Номер активной страницы блокнота

Создадим записную книжку на каждый день недели от Понедельника до Воскресенья

	Свойство	Значение
Форма	Caption	Блокнот
Position	poScreenCenter
Height
Width
PageControl	Align	alLeft
Width
TabSheet1… TabSheet7	Понедельник‑ Воскресенье
HotTrack	True
Кнопки Close, Добавить, Удалить, Изменить, Загрузить, Сохранить (компонент BitBtn)	Свойство	Значение
Height
Width
Поле ввода Edit	Height
Width
Text
Компонент Listbox ставится на каждую страницу компонента PageContro	Align	alClient
Диалоги OpenDialog и SaveDialog1	DefaultExt	txt
Filter	Текстовые файлы *.txt Все файлы *.*

Опишем процедуру загрузки файла по кнопке «Загрузить»:

procedure TForm1.BitBtn6Click(Sender: TObject);

Дата добавления: 2015-05-09