Завдання. 1. Запустіть Delphi і створіть новий проект

1. Запустіть Delphi і створіть новий проект.

2. Розмістіть на формі кнопку Button із палітри Standard.

Зверніть увагу, що в опис класу форми (у модулі Unit1) додався запис:

Button: TButton;

Що означає опис змінної Button типу TButton (кнопка).

3. Використовуючи інспектор об’єктів, змініть ім’я (властивість Name) кнопки на Ok і натисніть Enter.

При цьому автоматично зміниться на Ok і заголовок (властивість Caption) кнопки, а опис змінної у класі форми стане таким:

Ok: TButton;

4. Виділіть кнопку Ok (натисканням лівої кнопки миші чи використовуючи інспектор об’єктів) – при цьому навколо кнопки з’являться маркери.

Змініть розмір кнопки на 100х50 (при створенні вона мала стандартний розмір 75х25).

Примітка. Змінити розміри компонентів можна як за допомогою інспектора об’єктів (властивості Width і Height), так і використовуючи маніпулятор миша. Комбінація клавішів Shift+стрілки змінює розмір компонента на 1 піксель.

5. В інспекторі об’єктів знайдіть властивість Font і натисніть поруч із ним кнопку з трьома точками (…), яка розкриє діалогове вікно вибору шрифту для заголовка кнопки. Проекспериментуйте з можливими шрифтами, навчіться змінювати гарнітуру, розмір, накреслення та атрибути шрифту.

6. Збережіть проект в особистій папці. Запустіть додаток і вивчіть його властивості.

7. Установіть новий вигляд курсору миші (властивість Cursor), що буде відображатися над поверхнею кнопки. Для цього змініть значення властивості Cursor на crHandPoint (покажчик у вигляді руки).

Запустіть додаток і вивчіть його властивості.

Щоб переглянути всі можливі види курсорів, що надає середовище Delphi, натисніть ліву кнопку миші на властивості Cursor в інспекторі об’єктів і натисніть F1.

8. Задайте рядок повідомлення, що буде з’являтися при затримці курсору миші над кнопкою. Текст рядка введіть у поле властивості Hint (наприклад, Це підказка), а властивість ShowHint (показувати підказку) встановіть в true.

Запустіть додаток і вивчіть його властивості.

9. Розташуйте на формі два компоненти Edit – однорядкові поля редагування (вкладка Standard). Зверніть увагу, що в опис класу форми додалися рядки:

Edit1: TEdit;

Edit2: TEdit;

10. Найбільш важливою властивістю компонентів Edit є Text – текст, що відображається у полі редагування (спочатку, Edit1 і Edit2). Зітріть рядки Edit1 і Edit2 з полів значень властивості Text в Інспекторі об’єктів і запустіть додаток.

11. Створимо програму для переведення кута, вираженого в градусах, у радіани.

Значення кута в градусах будемо вводити у поле редагування Edit1, при натисканні кнопки Ok результат буде розраховуватися і відображатися у полі Edit2.

12. Створіть процедуру оброблення натискання на кнопку Ok (оброблювач створюється автоматично при подвійному натисканні лівої кнопки миші на кнопці Ok або на події OnClick в інспекторі об’єктів):

procedure TForm1.OkClick(Sender: TObject);

Begin

end;

Опишемо змінні x – цілого, y – дійсного, s – рядкового типу.

procedure TForm1.OkClick(Sender: TObject);

Var x: Integer;

y: Real;

s: String;

Begin

end;

З поля Edit1 візьмемо текст Text і трансформуємо його у цілочислове значення за допомогою стандартної функції StrToInt:

x:= StrToInt(Edit1.Text);

Переведемо аргумент x у радіани, для чого помножимо його на 6.28/360:

Begin

x:= StrToInt(Edit1.Text);

y:= 6.28/360*x;

str(y:5:5, S);

Edit2.Text:= s;

end;

Запустіть додаток і вивчіть його властивості.

Примітка. Якщо у поле Edit1 ввести некоректні дані, чи взагалі залишити його порожнім, то при натисканні на кнопку Ok генерується помилка і середовище Delphi переходить у покроковий режим налагодження (вихід із якого здійснюється комбінацією клавішів Ctrl+F2).

13. Створимо процедуру оброблення помилок, для чого скористаємося стандартною процедурою ShowMessage(‘Рядок символів’); що виводить на екран системне повідомлення.

При натисканні на кнопку Ok здійснюється перевірка, чи було у поле Edit1.Text введене значення, якщо ні, то викликається процедура ShowMessage(‘Введіть значення’); інакше здійснюються підрахунки:

If Edit1.Text = ’’ Then ShowMessage(‘Введіть значення’)

else begin