Практичне завдання 1
1. На формі розмістити два поля ( Edit1, Edit2)
Edit1 – для введення значення кольору вікна , Edit2 - для
введення кількості пікселів
2.
Встановити порожні
значення властивості Text
двох полів
3.
Розмістити два написи для оформлення (Label1, Label2)
Змінити
значення властивості Caption в Label1 – колір, Label2 – розмір
4.
Розмістити кнопку (Button1). Змінити значення
властивості Caption в Button1– Змінити
Створити заготовку процедури Button1OnClick,
яка буде виконуватися після клацання кнопки
procedure Button1OnClick;
begin
Form1.Color:=StrToInt(Edit1.Text); {призначені для переведення текстового
представлення дійсних чисел у ЦІЛІ числа, для цього використовується ф-я StrToInt - рядок у ціле число}
Form1.Height:=Form1.Height+StrToInt(Edit2.Text); end;
Практичне
завдання 2
1.
На формі розмістити
два поля ( Edit1, Edit2), два написи для
оформлення (Label1, Label2), напис для
виведення результату (Label3 ) та кнопку (Button1).
2.
Встановити порожні
значення властивості Text
двох полів і властивості Caption
напису для виведення суми
3.
Встановити відповідні значення властивості Caption
для інших трьох написів і кнопки
4.
Створити заготовку
процедури Button1OnClick,
яка буде виконуватися після клацання кнопки
procedure Button1OnClick;
var x,y,z:real;
begin
x:=StrToFloat(Edit1.text);
{призначені для переведення текстового представлення дійсних чисел у самі
дійсні числа, для цього використовується ф-я StrToFloat - рядок у число}
y:=StrToFloat(Edit2.text);
z:=x+y;
{команда додає ці числа і присвоює результат змінній z }
Label3.Font.Color:=clRed;
{встановлення червоного кольору симолів, яким
виводитиметься результат у напис}
Label3.Caption:=FloatToStr(z); \
{переводить результат додавання із числа в текст}
end;