Теоретические сведения

Многостраничный блокнот (PageControl)находится на форме особого вида Tabbed Pages (объект PagesDlg, заголовок "Tabbed Notebook Dialog"). Форму создают командами File => New...=> Закладка Forms => Tabbed Pages => Ok. После её создания ненужную форму "Forml" в случае необходимости можно удалить с помощью кнопки (Remove unit) окна менеджера проекта (Project Manager). Вызов окна менеджера проекта осуществляется командами View => Project Manager. В данной работе активизацию объектов PageControl и PagesDIg можно осуществлять с помощью инспектора объектов. Свойства объекта PagesDIg совпадают со свойствами обычной формы Form. Рассмотрим новые свойства блокнота PageControl:

Свойства отдельной страницы блокнота (объекта TabSheet)аналогичны описанным в предыдущих разделах.

Объект ComboBoxпредназначен для создания раскрывающегося списка. Его новые свойства такие:

Стандартные диалоги открытия (объект OpenDialog)и сохранение файлов (объект SaveDialog) - это невидимые на форме объекты, предназначенные для создания стандартных в Windows 9х окон: "Open file" и "Save File as" в момент вызова их из про­граммного кода проекта командой OpenDialog1.Execute или SaveDialog1.Execute. Имя выбранного файла возвращается в программу свойством FileName этих объектов.

Ход работы

Загрузите среду визуального программирования Delphi.

Откройте новую форму с многостраничным блокнотом.

File => New...=>Other\Закладка Forms => Tabbed Pages = > OK.

Выделите и удалите клавишей Delete панель (Panel2) с кнопками OK, Cancel и Нelp в нижней части открытой формы.

Поменяйте заголовок формы с «Tabbed Notebook Dialog» на «Телефонный справочник» и поменяйте стиль границы окна (BorderStyle) на Sizeable (способный менять размер).

Для этого сначала в окне Object Inspector в списке компонентов текущей формы выберите объект PagesDlg (окно формы с многостраничным блокнотом). Только теперь можно поменять его заголовок и стиль.

Выделите (щелкнув внутри страницы мышью) и удалите (Delete) третью страницу блокнота TabSbeet3.

Будьте внимательны и не удалите весь многостраничный блокнот - объект PageControl1. В случае необходимости вы можете отказаться от неправильного действия командой Edit => Undelete. Добавить новую страницу в блокнот можно командой New Page контекстного меню объекта PageCоntrol (блокнот) или TabSheet (страница блокнота )

6.Замените заголовки(свойство Caption) первой ивторой страниц блокнота

(объектов TabSheetl и TabSbeet2) на «Список всех записей» и «Редактирование и поиск записей» соответственно.

7. Заполните обе страницы формы визуальными объектами так, как это показано на рис. 6 и рис. 7.

Для создания объекта «Комбинированный Список» воспользуйтесь кнопкой (ComboBox) на закладке Standard палитры компонентов. Кнопки «Предыдущий» - «Следующий» называются Button1 - Button4 соответственно. Очистите поля свойства Textобъектов Editl - Edit5 и ComboBox1. Установите свойство Style объекта ComboBox1 в csDropDownList (раскрывающийся список)! Задайте следующие значения свойств объекта StringGrid1:

Сохраните выполненную на данный момент форму в своей папке.

9. С помощью мыши задайте ширину столбцов таблицы, например, так, как показано на рис. 6.

Для этого мышью передвиньте границу между двумя столбцами первой (серой) строки таблицы StringGrid1. Не допускайте появления горизонтальной полосы прокручивания в таблице.

10. Добавьте на форму главное меню и введите названия его команд, как показано на рис. 6 и рис. 7.

Для того чтобы провести линию-разделитель, между командами меню «Записать в файл» и «Выход» создайте дополнительный пункт с заголовком «-» (символ «минус»).

Замечание. Подменю «А→Я» и «Я→А» команды «Упорядочить по алфавиту» создают с помощью комбинации клавиш Сtrl+<стрелка вправо> или используют контекстное меню Create Submenu этой команды. Удаление ненужной команды выполняют клавишей Delete.

11. Создайте окно формы «О программе» (см. рис. 8).

Прибавьте к проекту новое окно формы типа About box (File => New... => Other=>Закладки Forms => About box =>> OK). Поменяйте тексты и заголовок формы, указав свою фамилию, например, так, как показано на рис. 8. Поменяйте изображения в окне по своему усмотрению, сменив свойство Picture объекта ProgramIcon.