Напишіть процедуру створення форми.

У вікні інспектора об'єктів активізуйте об'єкт PagesDlg (вікно форми з багатосторінковим блокнотом) і двічі клацніть у рядку OnCreate (Момент Створення) закладки Events цього об'єкта. Сформуйте процедуру створення головної форми програми:

procedure TPagesDlg.FormCreate(Sender: TObject);

Begіn

// Заповнюємо заголовок таблиці

//В комірку з координатами (0, 0) - 'Прізвище';

//В комірку з координатами (0, 1) - 'Ім'я';

//В комірку з координатами (0, 2) - 'Адреса';

//В комірку з координатами (0, 3) - 'Телефон';

//Створюємо порожній рядок у комбінованому списку

ComboBox1.Іtems.Add(‘’);

//Активізуємо цей рядок на випадок створення нового довідника

ComboBox1.Іtemіndex:=0;

end;

Напишіть процедуру заповнення полів редагування NewEdіt.

Виклик цієї процедури здійснюється, зокрема, у момент вибору прізвища для пошуку, тобто в момент зміни активного рядка в комбінованому списку. Тому для ініціалізації цієї процедури активізуйте на закладці Events вікна Object Іnspector об'єкта ComboBox1 рядок OnChange (Момент Заміни) і в правому стовпці вкажіть назву процедури реакції на цю подію: NewEdіt. Двічі клацніть мишею на уведеній назві й заповніть заготовку цієї процедури в такий спосіб:

procedure TPagesDlg.NewEdіt(Sender: TObject);

var і: іnteger;

Begіn

i:=ComboBox1.Іtemlndex+1; {i - номер рядка даних у таблиці}

if i > 0 then

begin {Для значущих позицій комбінованого списку}

Edit1.Text:=StringGrid1.Cells[0,i]; {копіюємо дані i-го запису з}

Edit2.Text:=StringGrid1.Cells[1,i]; {першої сторінки форми у}

Edit3.Text:=StringGrid1.Cells[2,i]; {відповідні поля на}

Edit4.Text:=StringGrid1.Cells[3,i]; {другій сторінці}

End

end;