Лабораторна робота № 1 Тема: "Створення шаблонів форм і їх використання в нових проектах"

Ціль заняття: отримати практичні навички по створенню шаблонів форм і повторному використанню цих шаблонів у нових проектах

 

Хід роботи

 

Створення форм-шаблонів

1. У новому проекті Delphi створіть форму для реєстрації користувача виду:

 

 

Форма запускається по центру екрана, усі поля обов'язкові для заповнення, поле пароль маскується символом "*".

По кнопці ОК перевіряється пароль. Якщо він вірний то відкривається деяка форма Form1, а в її заголовку відображається текст "Привіт "  + логін + "!".

По кнопці Скасування відбувається вихід із програми.

Для створення шаблону за цією формою привласніть їй унікальне ім'я "frmreg" і збережіть її у файл із ім'ям ureg.

 

Вказівки: для форми задайте властивості: Caption=Реєстрація, Bordericons-Systemmenu=false, Position=Desktopcenter.

На  формі розмістіть два компоненти Label (Standard) і в їхній властивості Caption задайте тексти написів.

Потім розмістіть два компоненти Edit (Standard) і очистіть їхні властивості Text. Щоб друге поле Edit 2 маскувалося за допомогою символу "*" для цього поля у властивості Passwordchar укажіть символ "*".

Після цього на формі розмістіть дві кнопки Button (Standard) і в їхній властивості Caption задайте потрібні написи.

Друга кнопка Button2 закриває програму. Для виконання даної дії клацніть на кнопці Button2 два рази й уведіть код:

 

procedure Tfrmreg.Button2Click(Sender: Tobject);

begin

    close;

end;

 

Перша кнопка Button1 перевіряє всі поля на наявність інформації в них. Якщо всі поля заповнені, то перевіряється пароль на відповідність шаблону (у нашому випадку "123456"). Якщо пароль вірний, то відкривається форма Form1. Для виконання даних дій клацніть на кнопці Button1 два рази й уведіть код:

 

procedure Tfrmreg.Button1Click(Sender: Tobject);

begin

    //якщо поле для введення логіна порожнє, то

    if edit1.text='' then

    begin

        //ставимо курсор у поле логіна

        edit1.Setfocus;

        //завершуємо роботу процедури

        exit;

    end;

    //якщо поле для введення пароля порожнє, то

    if edit2.text='' then

    begin

        //ставимо курсор у поле пароля

        edit2.Setfocus;

        //завершуємо роботу процедури

        exit;

    end;

    //якщо пароль збігається з текстом "123456"  

     if edit2.text='123456' then

    begin

        //видаляємо з пам'яті форму реєстрації       

        release;

        //відображаємо форму Form1      

         form1.show;

        //міняємо текст заголовка у форми Form1       

        form1.caption:='Привіт '+edit1.Text+'!';

    end;

end;

 

Форма буде шаблоном, тому задайте їй унікальне ім'я за допомогою властивості Name=frmreg. За допомогою команди File - Save As збережіть форму у файл із ім'ям ureg.

 

2. У проекті Delphi створіть нову форму Form1. На ній не буде ніяких компонентів. Вона потрібна для перевірки роботи кнопки ОК на формі реєстрації. Ця форма не буде шаблоном, тому можете зберегти її під стандартним ім'ям, пропонованим середовищем Delphi.

 

 Вказівки: для створення форми клацніть на кнопці NewForm  . Для форми задайте властивості: Position=DesktopCenter. При закритті цієї форми програма повинна завершувати свою роботу. Для виконання даної дії в події форми OnClose напишіть код:

 

procedure Tform1.Formclose(Sender: Tobject; var Action: Tcloseaction);

begin

    //завершити програму

    application.Terminate;

end;

 

3. Запустіть проект на виконання й перевірте правильність її роботи.

 

4. Додайте в цей же проект форму-заставку виду:

 

 

 

На формі в якості тла розмістіть довільну картинку. За допомогою компонентів Label нанесіть інформаційні написи. Форма буде використовуватися в якості шаблону, тому задайте їй ім'я frmlogo і збережіть у файл із ім'ям ulogo.

 

Вказівки: для створення форми клацніть на кнопці NewForm  . Для форми задайте властивості: BorderStyle=None, Position=DesktopCenter.

Для створення малюнка нанесіть на форму компонентів Image (Additional) і задайте властивості: Align=client, Stretch=true, Picture=файл із зображенням. Нанесіть на форму компонента Label (Standard) і в їхній властивості Caption задайте потрібні написи. За допомогою властивості Font можна змінити розмір символів у центральному написі на формі.

 Форма буде шаблоном, тому задайте їй унікальне ім'я за допомогою властивості Name=frmlogo. За допомогою команди File - Save As збережіть форму у файл із ім'ям ulogo.

 

5. У код файлу проекту додайте команди для виклику форми-заставки перед запуском основної програми. Запустіть проект на виконання й переконайтеся в правильності виконаних дій.

 

Вказівки: Форма-Заставка повинна з'явиться на екрані раніше, чим запуститися головна програма. Для цього виконайте команду Project-Options. На закладці Forms перенесіть форму frmlogo зі списку Autocreate Forms у список Available Forms. За допомогою команди Project View Source відкрийте код файлу проекту й після ключового слова Begin уведіть код:

 

//створюємо форму в пам'яті

frmlogo:=tfrmlogo.create(nil);

//показуємо форму на екрані

frmlogo.Show;

//обновляємо форму для коректного відображення всіх компонентів

frmlogo.Repaint;

//робимо паузу на 2 секунди

sleep(2000);

 

Перед командою Application.Run уведіть код:

 

//закриваємо форму-заставку й видаляємо її з пам'яті

frmlogo.free;

 

Використання копій створених шаблонів у новому проекті

Використовуючи форми-шаблони створіть новий проект, у якому потрібно використовувати такі ж форми для реєстрації й відображення заставки.

 

Вказівки: створіть новий проект. Збережіть його в нову папку й скопіюйте в папку цього проекту файли форм-шаблонів: ureg.dfm, ureg.pas, ulogo.dfm, ulogo.pas. Для додавання скопійованих форм у проект виконайте команду Project-Add To Project. У вікні, що з'явилося, укажіть скопійовані вами файли.

Після додавання форм форму реєстрації потрібно зробити головної (щоб вона запускалася першою). Для цього виконайте команду Project-Options. На закладці Forms у списку Mainform виберіть форму frmreg.

Запустіть програму й переконайтеся, що шаблон форми реєстрації успішно вбудований у новий проект.

Для використання форми-заставки потрібно повторити всі ті дії, які ви робили раніше в першому проекті для даної форми (см. пункт 5 першого завдання

 

Додавання форм-шаблонів у депозитарій Delphi

Додайте форму реєстрації й форму-заставку в депозитарій. При цьому розмістіть їх на окремій закладці з ім'ям КПО.

 

Вказівки: За допомогою кнопки ViewForm   або клавіш Shift+F12 перейдіть на форму frmReg. Клацніть по формі правою кнопкою й оберіть команду Add To Repository. Відкриється вікно, в якому довільно заповніть всі поля, а в полі Page введіть им'я КПО и клацніть ОК (див. рисунок). 

 

 

 

Аналогічно повторіть операції для форми frmlogo.

 

Вставка шаблонів форм із депозитарію

Використовуючи форми-шаблони з  депозитарію створіть новий проект, у якому потрібно використовувати такі ж форми для реєстрації й відображення заставки.

 

Вказівки: створіть новий проект. Для вставки шаблонів форм із депозитарію виконайте команду File - New - Other. В вікні, що з'явилося перейдіть на закладку КПО, виберіть потрібну форму, у низі вікна виберіть перемикач Copy і клацніть ОК. Повторіть ці ж дії для другої форми.

 

 

 

Після додавання форм форму реєстрації потрібно зробити головною (щоб вона запускалася першою). Для цього виконайте команду Project-Options. На закладці Forms у списку Mainform виберіть форму frmreg.

Запустіть програму й переконайтеся, що шаблон форми реєстрації успішно вбудований у новий проект.

Для використання форми-заставки потрібно повторити всі ті дії, які ви робили раніше в першому проекті для даної форми (см. пункт 5 першого завдання

 

Видалення шаблонів з депозитарію

Вилучіть збережені шаблони і їх закладку з депозитарію.

 

Вказівки: виконайте команду Tools - Repository. У вікні, що з'явилося, у лівому списку виберіть створену вами закладку КПО. У результаті в правому списку відобразяться всі елементи даної закладки (ваші форми-шаблони).

 

 

Поки на закладці перебуває хоча б один елемент, вилучити таку закладку неможливо. Тому вибираючи кожний елемент у правому списку за допомогою кнопки Delete Object вилучіть всі шаблони. Потім за допомогою кнопки Delete Page вилучіть вашу закладку КПО.