Ход работы
Загрузите среду визуального программирования Delphi.
Откройте новую форму с многостраничным блокнотом.
File => New..-^Закладка Forms => Tabbed Pages => Ok.
Выделите и удалите клавишей Delete панель (Panel) с кнопками Ok, Cancel и Help в нижней части открытой формы.
Поменяйте заголовок формы с «TabbedNotebookDialog* на «Телефонный справочник» и поменяйте стиль границы окна (BorderStyle) на Sizeable (способный менять размер).
Для этого сначала в окне ObjectInspector в списке компонентов текущей формы выберите объект PagesDlg (окно формы с многостраничным блокнотом). Только теперь можно поменять его заголовок и стиль.
5. Выделите (щелкнув внутри страницы мышью) и удалите (Delete) третью страницу блокнота TabSheet3.
Будьте внимательны и не удалите весь многостраничный блокнот - объект PageControll. В случае необходимости Вы можете отказаться от неправильного действия командой Edit =>Undelete. Добавить новую страницу в блокнот можно командой NewPage контекстного меню объекта PageControl (блокнот) или TabSheet (страница блокнота).
6. Замените заголовки (свойство Caption) первой и второй страниц блокнота (объектов TabSheetl и TabSheet2) на «Список всех записей» и «Редактирование и поиск записей» соответственно.
7. Заполните обе страницы формы визуальными объектами так, как это показано на рис. 16 и рис. 17.
Свойство |
Значения |
ColCount |
4 |
FixedCols |
0 |
RowCount |
100 |
FixedRows |
1 |
Options =>goEditing |
True |
Для создания объекта Комбинированный Список воспользуйтесь кнопкойИ(ComboBox) на закладке Standard палитры компонентов. Кнопки «Предыдущий» - «Следующий» называются Buttoml - Buttom4 соответственно. Очистите поля свойства Text объектов Editl - Edit5 и ComboBoxl. Установите свойство Style объекта ComboBoxl в csDropDownList (выпадающий список). Задайте такие значения свойств объекта StringGridl:
Рис. 16
8. Сохраните выполненную на данный момент форму в своей папке.
9. С помощью мыши задайте ширину столбцов таблицы, на- пример так, как показано на рис. 16.
Для этого мышью передвиньте границу между двумя столбцами в первой (серой) строке таблицы StringGridl. Не допускайте появления горизонтальной полосы прокручивания в таблице.
10. Добавьте на форму главное меню и введите названия его команд, как показано на рис. 16 и рис. 17.
Для того, чтобы провести линию-разделитель, между командами меню «Записать в файл» и «Конец» создайте дополнительный пункт с заголовком «-» (символ «минус»).
Замечание. Подменю «А->Я» и «Я->А» команды «Упорядочить по алфавиту» создают с помощью комбинации клавиш Ctrl-Кстрелка вправо> или используют контекстное меню CreateSubmenu этой команды. Удаление ненужной команды выполняют клавишей Delete.
11. Создайте окно формы «о программе» (см. Рис. 18).
Прибавьте к проекту новое окно формы типа Aboutbox (File =>New... =>Закладка Forms=>Aboutbox=>Ok). Поменяйте тексты и заголовок формы, указав свою фамилию, например, так, как показано на рис. 18. Поменяйте изображения в окне по своему усмотрению, сменив свойство Picture объекта Programlcon (см. п.13 практической работы № 1).
Рис. 17
Рис. 18
12. Запрограммируйте команду «О программе» главного меню окна «Телефонный справочник» так, чтобы в момент ее выполнения на экране появлялось только что спроектированное окно.
В заготовку процедуры обработки этой команды введите строку для вызова метода Show (показать) объекта AboutBox:
AboutBox .Show
13. Запрограммируйте кнопку Okокна «О программе».
Для этого возвратитесь к форме «О программе» и в процедуре OKButtonClick кнопки Ok введите команду закрытия активной формы:
Close
Замечание. Окно формы «О программе» находится под другими окнами Delphi.
14. Удалите ненужную пустую форму Forml из проекта.
Для этого вызовите менеджер проекта командой View =>ProjectManager (см. рис. 19). Выделите строку со значением Forml в поле Form инажмите клавишу Delete. Не сохраняйте эту форму (No). Закройте окно менеджера проекта.
Рис. 19