Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Uprazhnenia.doc
Скачиваний:
0
Добавлен:
27.04.2019
Размер:
649.22 Кб
Скачать

4. Завдання

  1. Зробити шрифт виведеної репліки відмінним від стандартного по виду, кольору і розмірам.

Підказка. Для мітки в Object Inspector праворуч від властивості Font клацнути мишкою двічі.

  1. Замінити просту кнопку Вихід на більш привабливу кнопку.

Підказка. Для заміни кнопки треба видалити існуючу, а іншу знайти в палітрі компонентів на сторінці Additional. Вона сама ліва, називається BitBtn. Потім змінити її вид у властивості Kind.

  1. Зробити так, щоб при запуску проекту на екрані замість назви Label1 з'являвся текст Перші успіхи! , а після натискання кнопки Вітання з'являлося нове повідомлення Перші й не останні!

Підказка. Змінити властивість Caption і для події OnClick внести зміни.

  1. Запустити виконуваний файл, Pr1.exe не в середовищі Delphi, а в Windows.

Підказка. Вийти з Delphi в Windows. Використати диспетчер програм або провідник Windows.

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

  1. На якій панелі знаходяться компоненти Label та Button ?

  2. Як здійснюється розміщення компонентів на формі?

  3. Як змінити заголовок компоненту Button ?

  4. Як реалізувати процедуру виходу із програми при натисканні на кнопку «Вихід» на проекті?

  5. Чому необхідно зберігати файли з розширенням .dpr та .pas ?

  6. Як змінити назву форми?

  7. Як змінювати розмір та шрифт у компонентів на формі?

  8. В чому різниця між BitBtn та Button ?

  9. Що означає подія OnClick?

  10. Файл, з яким розширенням, створений в Delphi, можна запустити із Windows?

Практична робота № 3. Тема: Розробка проекту "діалог"

  1. Постановка завдання

Створити програму, за допомогою якої можна виконати:

після запуску програми користувач вводить своє ім'я, наприклад, Олександр, у прямокутник з миготливим текстовим курсором і натискає клавішу Enter (Рис. 1).

З'являється питання: "Олександр, ти любиш читати?". Якщо користувач натисне на клавішу Так, то повинна з'явитися репліка: "Молодець!", якщо він натисне на клавішу Ні, то з'явиться репліка: "Чому ж? Треба читати".

Для виходу із програми необхідно клацнути мишею на кнопці Вихід.

Рис. 1 Рис. 2

Пояснення. Новим у цій програмі є рядок уведення Edit на сторінці палітри компонентів Standard й обробка події рядка уведення - OnKeyPress.

  1. План розробки програми

  1. Відкрити новий проект. Дати назву формі Діалог.

  2. Розмістити на формі компоненти відповідно до Рис. 2.

  3. Зберегти проект під ім'ям, наприклад, Pr2.pas й Pr2.dpr.

  4. Запустити програму, потім закрити вікно проекту кнопкою Вихід.

  5. Виконати наступні дії:

Виділений компонент

Вікно інспектора об'єктів

Ім'я властивості

Дія

BitBtn1

Properties

Caption

&Вихід

Kind

bkClose

Label1

Properties

Caption

Введи своє ім'я й натисни Enter

Edit1

Events

OnKeyPress

If key=#13 then

begin

Label2.Caption:=Edit1.Text + ', ти любиш читати?';

end;

Button1

Properties

Caption

Так

Events

OnClick

Label3.Caption:=‘Молодець!’;

Button2

Properties

Caption

Ні

Events

OnClick

Label3.Caption:='Чому ж? Треба читати.';

Label2

Properties

Caption

Видалити назву

Label3

Properties

Caption

Видалити назву

  1. Зберегти проект, запустити й протестувати його.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]