Хід роботи

1.Створіть новий проект.

2.У властивості FormStyle головної форми змініть значення з fsNormal на fsMDIForm.

3.Додайте до проекту ще дві форми – Form2 і Form3.

4. У властивості FormStyle обох цих форм змінюємо значення з fsNormal на fsMDIChild.

5.Запускаємо проект.

Як бачимо додаткові форми відображаються одночасно, закрити їх не можна, можна лише звернути. Трохи змінимо нашу програму, щоб одне вікно з’являлося при клацанні лівою клавішею миші по основній формі інша при натисканні будь-якої клавіші на миші.

6.Відключемо автоматичне створення наших двох форм.

Для цього використаємо головне меню Delphi – Project/Options… У вікні що з’явиться виберемо вкладку Forms. У списку Auto-create forms виділимо дві форми Form2 i Form3. Потім натиснемо кнопку зліва від форми з значком > і натиснемо кнопку Ок.

Якщо запустити проект, то ми побачимо що додаткові форми вже не відображаються – це пояснюється тим що вони вже автоматично не створюються.

7.Нам потрібно створювати дані форми в подіях onMouseDown та onClick. В процедурі яка виконується при події onClick напишемо наступний код.

if not Assigned (Form2) then //Перевірка на існування форми Form2

Begin

Form2:=TForm2.Create(Application); //Створення форми

end;

8.Аналогічний код потрібно написати в процедурі яка виконується при події onMouseDown, лише потрібно змінити Form2 на Form3:

if not Assigned (Form3) then //Перевірка на існування форми Form3

Begin

Form3:=TForm3.Create(AppLication); //Створення форми

end;

9.Коли ми виконаємо проект то побачимо що форми з’являються, але закрити їх не можна. Для того щоб вони закривалися потрібно в події яка виникає при закриті форми знищувала дану форму:

- отже, виберемо форму Form2.

- в події onClose напишемо наступний код:

Action:=caFree; //Звільнення екземпляру форми при її закритті.

- в події onDestroy напишемо:

Form2:=nil; //Звільнення значення змінної при знищені форми.

10.Аналогічні дії виконаємо для форми Form3.

11. Збережемо даний проект на диску С в папку Practugna1Z3.

Дати письмову відповідь на запитання

1.В якому році з’явилася перша версія Delphi? (1995-ому році для 16-бітної Windows 3.1.)

_________________

2.Як називається версія Delphi для ОС Linux? (Kylix)

_________________

3.З яких вікон складається середовище Delphi?

_________________________________________________________________________

4.З яких файлів складається проект?

_________________________________________________________________________

5.В якому файлі і яким рядком підключається ресурсний файл?

_________________________________________________________________________

6. В якому файлі і яким рядком підключається файл форми?

_________________________________________________________________________

7.Які значення може приймати властивість форми FormStyle?

_________________________________________________________________________

8.Якого стилю можуть бути програми?

_________________________________________________________________________

9.Як викликати модальну форму (Form2)?

_________________________________________________________________________

10.Як викликати немодальну форму (Form2)?

_________________________________________________________________________