Процедура реагування на подію натискання кнопки

Наступна процедура реагує на подію натискання кнопки . Форма , що реалізує роботу кнопки в редакторі та після запуску на виконання представлена на рис.1.4.

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c:integer;

begin

a:=strtoint(edit1.text);

b:=strtoint(edit2.text);

// Властивостям компоненти label4.Caption надані наступні значення

// Width=48 , властивість WordWrap=true, тому наступний текст виводиться

// у декілька рядків

label4.Caption:='тестування виведення тексту у декілька рядків';

c:=a+b;

edit3.Text:=inttostr(c);

//У компоненту label5.Caption виводиться код клавіші Enter

label5.Caption:=inttostr(VK_return);

end;

Рис 1.4. Форма , що реалізує роботу кнопки в редакторі та після запуску на виконання.

Хід роботи

Приклад 3 : написати програму, в якій можна б було змінювати розмір форми і задавати будь-яке ім’я вікну програми.

Порядок виконання приклада 3

1. Створити папку для збереження файлів приклада 3.

2. Завантажити Delphi .

3. Перетягнути на форму з вкладки Standard дві кнопки Button і два поля Edit.

4. Далі слід розмістити всі об’єкти так, щоб ними було зручно користуватися. Це можна зробити звичайним способом Drag-n-Drop. Поля Edit1 і Edit2 слід розмістити в один ряд і під ними кнопку Button1. Ще нижче поле Edit3 та кнопку Button2.

5. Н атискаємо Shift і почергово виділяємо перше і друге поля введення. В інспекторі властивостей вибираємо властивість Text і вводимо з клавіатури числове значення. Наприклад, 200. Таким чином коли, програма запуститься у полях Edit будуть два числа, що дорівнюють 200. Таку ж операцію слід провести і з Button1 та Button2, але тепер властивості Caption(заголовок) треба надати значення текстової сталої „Применить”. У програмі також можна використати для зручності інтерфейсу об’єкт під назвою Label. Для цього об’єкта у полі Caption можна ввести пояснення, наприклад, „Размер формы” та „Название формы”.

6. Два рази клацнувши на кнопці Button1 ми переходимо до редагування коду цієї кнопки. Delphi автоматично створює процедуру і розташовує курсор миші одразу в тілі процедури. Задача полягає в тому, щоб розміри форми відповідали введеним значенням полів Edit1 та Edit2. Для цього напишемо такий код: form1.Width:=strtoint(edit1.Text);

form1.Height:=strtoint(edit2.Text);

Значенню ширини форми Width ми привласнюємо значення поля Edit1, але перетворене з тексту у число стандартною процедурою StrToInt. Аналогічну дію виконуємо для значення висоти форми – Height.

7. Тепер клацнувши на кнопці Button2 введемо такий код: form1.Caption:=edit3.Text; В цьому випадку не потрібно використовувати процедуру IntToStr оскільки значення, які вводяться у поле Edit3 мають тип String.

8. За допомогою опції меню File/Save as зберегти створений модуль і проект у папці, що була створена у пункті 1.Запустити програму на виконання натиснувши клавішу F9. Підібрати розміри форми для зручної роботи з нею. Надати формі ім’я - прізвище студента.