20. Напишите процедуру создания формы.
В окне инспектора объектов активизируйте объект PagesDlg (окно формы с многостраничным блокнотом) и дважды щелкните в строке OnCreate (Момент Создания) закладки Events этого объекта. Сформируйте процедуру создания главной формы программы:
procedure TPagesDlg.FormCreate(Sender: TObject);
begin
// Заполняем заголовок таблицы
//В ячейку с координатами (0, 0) – 'Фамилия';
//В ячейку с координатами (0, 1) – 'Имя';
//В ячейку с координатами (0, 2) – 'Адрес';
//В ячейку с координатами (0, 3) – 'Телефон';
//Создаем пустую строку в комбинированном списке
ComboBox1.Items.Add('');
//Активизируем эту строку на случай создания нового справочника
ComboBox1.ItemIndex:=0;
end;
21. Напишите процедуру заполнения полей редактирования NewEdit.
Вызов этой процедуры осуществляется, в частности, в момент выбора фамилии для поиска, то есть в момент смены активной строки в комбинированном списке. Поэтому для инициализации заготовки этой процедуры активизируйте на закладке Events окна Object Inspector объекта ComboBox1 строку OnChange (Момент Замены) и в правом столбце укажите название процедуры реакции на это событие: NewEdit. Дважды щелкните мышью на введенном названии и заполните заготовку этой процедуры следующим образом:
procedure TPagesDlg.NewEdit(Sender: TObject);
var i:integer;
begin
//i - номер строки данных в таблице привести в соответствие номеру строки в ComboBox1 используя свойство ItemIndex
//Для значащих позиций комбинированного списка
//копируем данные i-ой записи со
//второй страницы формы в
//соответствующие поля на первой странице
end;
22. Напишите процедуру заполнения комбинированного списка NewComboBox.
Сначала к описанию типа класса (объекта) TPagesDIg (многостраничной формы) в разделе interface добавьте декларацию:
type
TPagesDlg = class(TForm) //Эта запись уже есть в заготовке модуля
{Необходимо вставить}.
procedure NewComboBox;
В раздел implementation добавьте описание этой процедуры:
procedure TPagesDlg.NewComboBox;
var i,j:integer;
begin
//Запоминаем активную позицию комбинированного списка
//Очищаем комбинированный список
ComboBox1.Clear;
//Для всех N (переменная получена в процедуре для записи в файл) записей
//В обновленный комбинированный список добавляем
//все фамилии из первого столбца таблицы. Используем СвойствоItems метод Add для ComboBox1
//Переходим на позицию j в ComboBox1
end;
23. Сохраните работу, запустите программу, заполните таблицу данными и убедитесь в том, что программа правильно записывает на диск и считывает с диска файлы телефонных справочников.
24. Запрограммируйте команду главного меню «Сохранить изменения в списке записей».
//Сохранить изменения в списке записей
procedure TPagesDlg.N10Click(Sender: TObject);
var i:integer;
begin
//Определяем номер активной записи в ComboBox1 (свойство ItemIndex)
//Если активна первая страница
//то вносим изменения во вторую
иначе вызываем NewEdit(ComboBox1);
//В обоих случаях обновляем комбинированный список
NewComboBox;
end;
25. Запрограммируйте кнопку перехода на предыдущую запись «Предыдущий».
procedure TPagesDlg.Button1Click(Sender: TObject);
begin
If ComboBox1.ItemIndex=0 then
//Зацикливаем список
ComboBox1.ItemIndex:=N-1
else
//В середине списка показатель уменьшается на единицу
ComboBox1.ItemIndex:=ComboBox1.ItemIndex-1;
//Обновляем панель "Найдена запись"
NewEdit(ComboBox1);
end;
26. Аналогично запрограммируйте кнопку «Следующий».
Программный код созданной процедуры запишите в отчет.
27. Сохраните программу и убедитесь в правильности ее работы.
Запустите программу, считайте с диска файл телефонного справочника, выберите какую-то фамилию в комбинированном списке и поменяйте ее в поле редактирования «Фамилия». Убедитесь в том, что синхронные изменения происходят и в комбинированном списке. Сохраните изменения и используйте кнопки «Предыдущий» и «Следующий» для навигации по записям, убедитесь в зацикливании списка. Сохраните справочник в файле на диске, просмотрите окно «О программе», закончите работу с программой.
Задача 1. Запрограммируйте кнопку «Удалить» так, чтобы после нажатия на нее удалялись данные из панели «Найдена запись» и из комбинированного списка.
Задача 2. Запрограммируйте кнопку «Найти» так, чтобы на панели «Найдена запись» отображалась информация о лице, фамилия которого указана в поле редактирования Edit5 «Введите фамилию». Если такой фамилии нет, то выведите сообщения об этом в отдельном окне.
Задача 3. Запрограммируйте команды подменю «А–>Я» и «Я->А» пункта главного меню «Сортировать» так, чтобы фамилии в таблице и комбинированном списке были отсортированы в алфавитном или обратном порядке.
Задача 4. Удалите команду «Сохранить изменения в списке записей» из главного меню и обеспечьте сохранение изменений в момент редактирования таблицы и полей на панели «Найдена запись».
Задача 5. В случае попытки открыть несуществующий файл телефонного справочника обеспечьте появление окна с соответствующим сообщением.
Задача 6. В момент выхода из программы обеспечьте появление окна для сохранения файла телефонного справочника в случае, если в нем были сделаны изменения.
рис.3
Рис 5
Рис 6