3. На Form розмістити мітку Label {Аналогічно: Standard піктограма Label клацнути на формі мітка Label1}.

4. Розмістити кнопку під міткою {перетаскуючи мишею}, зменшити розмір вікна {мишею}.

5. Перейменувати кнопку на «Пуск», а мітку на «Перший додаток» {виділити на Form1 кнопку, перейти в Інспектор Об'єктів (якщо його немає на екрані – F11 чи File View Object Inspector), змінити властивість Caption (напис, заголовок)}.

6. Напис на мітці зробити жирним шрифтом {виділити мітку, у вікні Інспектор Об'єктів розкрити подвійним клацанням миші властивість Font (шрифт) аналогічно – властивість Style (стиль) встановити в True властивість fsBold (жирний)}.

7. Стерти текст у властивості Caption мітки, щоб він не висвічувався, поки користувач не натисне «Пуск». Текст на мітці повинний з'являтися тільки після натискання кнопки.

II. Кодування ( розробка підпрограми обробки події OnClick ).

8. Виділити кнопку на Form1 Інспектор Об'єктів відкрити сторінку подій Events подвійне клацання мишею у вікні праворуч від імені події OnClick перейшли у вікно Редактора Коду з текстом процедури (тобто оброблювач події):

Procedure TForm1.Button1Click (Sender: TObject);

Клас форм ім'я компонента ім'я події (без префікса On)

Begin

Label1.Caption: =’Перший додаток’;

Мітка Заголовок

End ;

9.У вікні Редактора Коду вбудоване вікно Провідника (Дослідника) Коду. Його можна закрити.

10. Властивiсть Caption компонента Label1 змінена на текст “Пер-ший додаток” за допомогою метода - підпрограми обробки події - Procedure TForm1.Button1Click.

11. Якщо немає помилок Error і зауважень Warning, компілюємо додаток і виконуємо його {File Run Run чи F9}.

Контрольні питання.

1. Типи вікон Delphi.

2. Основні компоненти палітри.

3. Формування та конструювання форми.

4. Основні об'єкти форми.

5. Обробка події (Редактор Коду).

6. Провідник Коду.

7. Знавець Коду.

Захист програми паролем

Програміст може показати діалогове вікно з запитом пароля і блокувати виклик методу Application.Run, якщо введений користувачем пароль невірний. У наступному прикладі, у проекті використовуються дві форми: стандартна форма InputQuery і звичайна головна форма Form1. Форма InputQuery створюється при звертанні до однойменної функції, визначеної в модулі Dialogs. Вона являє собою невелике діалогове вікно з однорядковим текстовим полем Tedit і двома кнопками – OK і Cancel. У вікні користувач повинний ввести пароль (Delphi) і натиснути клавішу Enter.

program Password;

uses

Forms,

Dialogs, // У цьому модулі визначена функція InputQuery

Until in ‘Unit1.pas’ {Form1};

{$R *.RES}

var

Passwrd: String;

Begin // Запитуємо пароль:

if InputQuery (‘Вікно введення пароля ’ , ‘ Введіть пароль: ‘ , Passwrd)

then

if Passwrd = ‘Delphi’ then

begin // Все в порядку, пароль вірний

Application.CreateForm (Tform1, Form1);

Application.Run;

end else

ShowMessage ( ‘ Пароль не вірний! ’ ):

end.

Лабораторна робота N 4-5

Тема: Вивчення палітри компонентів.

Мета: Розробити додаток для виконання арифметичних операцій.

Хід роботи:

I. 1. Відкрити новий додаток.

2. Перенести на форму зі сторінки бібліотеки Standard компоненти :

три мітки Label для написів у

послідовному порядку ;

два вікна редагування Edit;

панель Panel;

кнопку Button;

3. Замінити надписи в мітках {властивість

Caption} на наступні:

Наприклад: “ число1 “,” число2 “,”результат”,

надпис кнопки – “Розрахунок”.

4. Задати для міток жирний шрифт , а для кнопки – курсив.

5. Очистити властивість Caption у панелі.

6. Для властивості Text(текст) вікон редагування задати «1»- початкове зна-

чення тексту .

7. Змінити вид панелі:

основне поле - Bevellnner = BvRaised («опуклий»).

рамка – Bevelouter = BvLowered (»утоплений»)

8. У редакторі коду написати обробку події – клацання кнопки OnClick

Panel1.Caption:= Edit1.Text + ’ * ‘ + Edit2.Text + ’ = ’+

FloatToStr (StrToFloat (Edit1.text) * StrToFloat (Edit2.text));

9. Зберегти додаток {створити свій підкаталог (як папку Windows) :

{ File Save all чи швидкими кнопками головного вікна}.

10. Зкомпілювати і виконати розроблений проект (додаток).

I I. Розробити проект згідно варіанта завдання для розрахунку:

1.Площі трикутника за сторонами А та В і кутом між ними α : S= ½ A*B*Sinα

2.Площі прямокутного трикутника за двома його катетами А та В : S=½ A*B

3.Площі рівностороннього трикутника за довжиною його сторони : S=√3/4 a^2.

4.Площі трикутника за довжинами його сторін А, В та С за формулою Герона

S= √P∙ (P-A) ∙ (P-B) ∙ (P-C), де Р=½(А+В+С)

5.Площі трапеції за двома основами А та В і висотою Н : S=(А+В)*Н.

6.Довжини кола по заданому радіусу R : L=2πR.

7.Площі кругу по заданому радіусі R : S= πR²

8.Периметра Р і площі S прямокутника за його сторонами А та В

9.Сторону трикутника С за двома іншими сторонам А та В і кутом між ними :

C= А²+B²-2A*B*Cos β

10.Площі ромба за його діагоналями Н1 і Н2 : S=H1*H2

Контрольні питання :

1.Компоненти Edit і Panel, їх властивості.

2.Візуальні властивості «Вид».

3.Функції перетворення типів FloatToStr , StrToFloat (IntToStr, StrToInt).

4.Компіляція і виконання проекта (додатка).

5.Розширення файлів Delphi.

Лабораторна робота № 6-7

Тема: Розробка додатків з використанням меню.

Мета: освоїти розробку додатків з використанням меню.

Хід роботи:

I.Створення головного меню.

1.Відкрити новий додаток (проект).

2.Активізувати FORMу , змінити значення властивості Caption на МMenu ,а Name- на Mform.

3.Зберегти проект {File Save Project As з'явиться діалогове вікно Save Unit1 As створюємо

нову папку , вибравши осмислену назву проекту (наприклад ЛР_6_7).Розкриваємо створену папку

у поле Ім'я файлу дати ім'я програмного модуля Зберегти. Відкриється діалогове вікно

Save Project As.(зберегти проект). У поле Ім'я файлуім'я файлу проекту(LR 6-7).

Розширення файлу модуля -.pas, файл проекту -.dpr}

4.На формі в лівому верхньому кутку розмістити компонент TMainMenu з Standard (це не візуальний

компонент, тобто його піктограма не відповідає явному виду, а миша показує його наявність.

Настроювання його ведеться за допомогою спеціального редактора Menu Designer, що викликається

Подвійним клацанням на об'єкті MainMenu1).

5.Створити пункт головного меню File { в Menu Designer змінити властивість Caption на &File і ,таким

чином визначили клавішу швидкого виклику (Мнемонічного доступу), тобто +}.

6.Внести підпункти меню Save і eХit {змінюючи Caption на &Save та e&xit }.

7.Вибрати клавішні еквіваленту F2 і F3 {властивість ShortCut вибрати відповідні F? чи

набрати їх у віконці }.

8.Анологічно створити пункт гол. меню Help(праворуч від File) і його підпункти ?Info(F1)

та Exit.

9. Вставити між ? та Exit розділову лінію {у властивості Caption у першій позиції набрати “дефіс – “}.

10.Відзначити пункт Save символом √ .

11.Розробити код обробки подій, що виникають при виборі пунктів меню, наприклад – Exit.

У редакторі меню подвійним клацанням миші на пункті Exit визиваємо редактор коду

Procedure TMForm.Exit1Click(Sender:Tobject);

Begin

If CloseQuery then Close; {чи Close}

End;

12.Зкомпілювати додаток {F9} і перевірити функції головного меню.

I I.Створення Контекстного (Спливаючого) меню.

1.На формі розмістити не візуальний компонент TРopUpMenu.

2.Аналогічно пунктам 5-7(першої частина LR) створити спливаюче меню.

3.Після створення спл. меню в редакторі Menu закрити вікно редактора Menu([x]) клацнути на формі

(для скасування вибору всіх компонентів) . у списку вікна, що розкривається, ObjectInspector буде

MForm:TMForm. Властивості PopUpMenu форми надати значення PopUpMenu1.

4.Аналогічно пункту 11 (I ч. LR) обробити пункт спливаючого меню «?Info » для інформаційного

діалогового вікна повідомлень.

Використати процедуру MessageDlg, що має 4 аргументи:

1 – симв. рядок з «переходом рядка» (код #13) і «поверненням каретки» (код #10) -для виведення

тексту у декілька рядків;

2 – mtInformation – вибір стилю діалогового вікна ;

3 – [mbOк] – множина кнопок у вікні;

4 – 0 – ознака контекстної довідки;

Текст процедури обробки події :

Procedure TMForm.Info1Click (Sender:Tobject);

Begin

MessageDlg ('Меню розробив(ла)'#13#10'студент(ка) гр. № ФИО', mtInformation,[mbOk],0);

End;

5.Зкомпілювати додаток і перевірити його роботу вибором пункту мишею ,клавішами еквіваленту та мнемонічного коду.

Контрольні питання:

1.Візуальні та невізуальні компоненти. 2.Етапи збереження проекту.

3.Створення головного ( контекстного ) меню. 4.Клавіші еквіваленту.

5.Мнемонічний код. 6.Інформаційне діалогове вікно повідомлень.

Тема : Сторінка системних компонентів

Сторінка System : містить компоненти, що дозволяють мати доступ до програмного та апаратного забезпечення ПК.

Наприклад: Tіmer, Audіo - vіdіoplayer, вікно для малювання Paіnt - Box.

Компоненти Tіmer використовується для запуску процедур і функцій по обробці подій у зазначений інтервал часу, для контролю часу, тобто для виконання дій у реальному режимі часу. Це не візуальний компонент.

Має властивості:

- Enable (True, False) – використовується для генератора повідомлень.

- Іnterval – задається цілим числом у мілісекундах.

Має подію OnTіmer.

Сторінка Win32 : містить 32-бітні компоненти (після Delphi-2) загального призначення, що дозволяє розробку додатків у стилі Win98, 2000, NT.

Наприклад: календар, можливість корегування дат і часу, створення структури дерева, відтворення кліпів і т.д.

Візуальний компонент TdateTimePicker – поле введення, корегування дати і часу .

Має властивості :