Question

Створіть проєкт, під час виконання якого буде відкриватися вікно з такими
значеннями властивостей:
 колір фону - сірий;
 ширина – 200 пікселів;
 висота – 100 пікселів;
 відступ лівої межі – 150 пікселів;
 відступ верхньої межі – 100 пікселів;
 текст у рядку заголовка – Практична робота.
2. Збережіть проект у папці з іменем Практична 8. створеній у вашій папці.
3. Додайте до проекту обробник події Click для вікна, виконання якого
установить червоний колір фону вікна, відступ верхньої межі вікна 200
пікселів від верхньої межі екрана, збільшить його ширину на 300 пікселів,
зменшить на 50 пікселів відступ лівої межі вікна від лівої межі екрана, відкриє
вікно повідомлень з текстом Ми вивчаємо програмування!
4. Збережіть проект із тим самим іменем у тому самому місці.
5. Додайте до проекту обробник події KeyPress. виконання якого змінить колір
фону вікна на синій, збільшить на 300 пікселів відступ верхньої межі вікна від
верхньої межі екрана, збільшить його ширину на 200 пікселів.
6. Збережіть проект із тим самим іменем у тому самому місці.
Закрийте всі відкриті вікна.
Повідомте вчителя про завершення роботи.

Answer 1

Щоб встановити колір фону сірий треба в інспекторі об'єктів знайти Color і встановити колір

Щоб встановити ширину і висоту треба в інспекторі об'єктів знайти Width - Ширина та Height - Висота

Щоб встановити відступи від верхньої або лівої межі єкрану треба в інспекторі об'єктів треба знайти Top - верхня межа та Left - ліва межа

Щоб встановити назву в інспекторі об'єктів  в Caption встановити назву

або щоб не робити все вище перераховане можна треба додати подію для форми під назвою  OnCreate і вписати код:

Form1.Color := clGray;

 Form1.Width := 200;

 Form1.Height := 100;

 Form1.Left := 150;

 Form1.Top := 100;

Код для події Click:

Form1.Color := clRed;

Form1.Top := 200;

Form1.Width := Form1.Width + 300;

Form1.Left := Form1.Left - 50;

Showmessage ('Ми вивчаємо програмуваня!');

Код для події KeyPress:

Form1.Color := clBlue;

Form1.Top := Form1.Top + 300;

Form1.Width := Form1.Width + 200;