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

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

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

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

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

5. Выделите (щелкнув внутри страницы мышью) и удалите (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:

Свойство	Значения
ColCount	4
FixedCols	0
RowCount	100
FixedRows	1
Options => goEditing	True

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

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

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

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

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

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

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

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

12. Запрограммируйте команду «О программе» главного меню окна «Телефонный справочник» так, чтобы в момент ее выполнения на экране появлялось только что спроектированное окно.

В заготовку процедуры обработки этой команды введите строку для вызова метода Show (показать) объекта AboutBox:

AboutBox.Show

13. Запрограммируйте кнопку Ok окна «О программе».

Для этого возвратитесь к форме «О программе» и в процедуре OKButtonCIick кнопки OK введите команду закрытия активной формы: Close

Замечание. Окно формы «О программе» находится под другими окнами Delphi.

14. Удалите ненужную пустую форму Form1 из проекта.

Для этого вызовите менеджер проекта командой View => Project Manager. Выделите строку со значением Form1 в поле Form и нажмите клавишу Delete. He сохраняйте эту форму (No). Закройте окно менеджера проекта.

15. Запрограммируйте команду Файл => Выход главной формы.

16. Сохраните работу и запустите проект на выполнение.

Убедитесь в правильности работы закладок, комбинированного списка, наличия возможности редактировать поля таблицы и перемещаться по ним с помощью полосы прокручивания. Вызовите окно «О программе» и закройте его клавишей OK. Закончите работу командой Файл => Выход.

17. Опишите глобальные переменные и типы данных программы: тип записи телефонного справочника (info), файл записей (r), переменную типа info (r) и целую переменную количества записей (N).

Для этого перед разделом реализации implementation добавьте такие команды:

Info = record {Тип записи}

familia, imja : string[20];

adres : string[100]; tel : string[15];

end; {Эта строка уже есть в заготовке модуля]

var PagesDlg : TPagesDlg;

F : file of info; {Файл записей}

r : info; {Одна запись}

N : integer; {Количество записей}