Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
lab_pr_ta / Лаб_та_пр_3.doc
Скачиваний:
25
Добавлен:
07.02.2016
Размер:
292.35 Кб
Скачать

Розміщення написів (Label)

На формі рис.1.2 є чотири написи. Для нанесення таких написів на форму використовується компонент TLabel. Виберіть у меню компонентів Standard відповідну піктограму, клацніть на ній мишею, з'явиться напис Label. Проробіть це для чотирьох написів. Для кожного напису, клацнувши на ній мишею, відрегулюйте розмір і, змінивши властивість Caption інспектори об'єктів, уведіть рядок, наприклад “Введіть значення X”, а також виберіть розмір символів (властивість Font).

Зверніть увагу, що в тексті програми автоматично з'явилися чотири нових змінних типу TLabel. У них зберігаються пояснювальні рядки, які можна змінювати в процесі роботи програми.

Розміщення багаторядкового вікна виведення (Тмето)

Для виведення результатів роботи програми звичайно використовується текстове вікно, що представлене компонентом (Тмето). Виберіть у меню компонентів Tmemo і помістіть його на форму. За допомогою миші відрегулюйте його розміри і місце розташування. Після установки за допомогою інспектора властивості ScrollBars - SSBoth у вікні з'являться вертикальна і горизонтальна смуги прокручування.

У тексті програми з'явилася перемінна Memo1 типу Tмемо. Інформація, що відображається за допомогою декількох рядків у вікно типу TMemo знаходиться в масиві рядків Memol.Lines. Кожен рядок має тип String.

Для очищення вікна використовується метод Memol.Clear. Для того щоб додати новий рядок у вікно, використовується метод Memo1.Lines.Add (перемінна типу String).

Якщо потрібно вивести число, що знаходиться в змінній дійсного або цілого типу, то його треба попередньо перетворити до типу String і додати в масив Memo1.Lines. Наприклад, якщо перемінна u := 100 цілого типу, то метод Memo1.Lines.Add (‘Значення u == ’+IntToStr(u)) зробить це й у вікні з'явиться рядок “Значення u =100''. Якщо перемінна u :=-256,38666 дійсна, то при використанні методу Меmо1.Lines.Add (‘Значення u=' +FloatToStr(u.fffixed,8,2)) буде виведений рядок "Значення u= -256.39". При цьому під усе число приділяється вісім позицій, з яких дві позиції займає його дробова частина.

Якщо число рядків у масиві Memo1 перевищує розмір вікна, то для перегляду всіх рядків використовується вертикальна смуга прокручування. Якщо довжина рядка Memo1 переверщує кількість символів у рядку вікна, то у вікні відображається тільки початок рядка. Для перегляду всього рядка використовується горизонтальна смуга прокручування.

Написання програми обробки події - створення форми (FormCreate)

При запуску програми виникає подія “створення форми” (OnCreate). Створимо обробник цієї події, що заносить початкові значення перемінних x, y, z у відповідні вікна TEdit, а у вікні Tmemo виводить рядок із указівкою номера групи і прізвище студента. Для цього двічі клацнемо мишею на будь-якому вільному місці форми. На екрані з'явиться текст, у якому автоматично внесений заголовок процедури - оброблювача події створення форми:

Procedure TForml.FormCreate(Sender:TObJect);

Між begin...end записується текст програми

Соседние файлы в папке lab_pr_ta