Question

1. Створіть обробник події Click для кнопки, виконання якого встановить:
o зелений колір тла поля,
o відступ поля від верхньої межі вікна – 150 пікселів,
o зменшить відступ поля від лівої межі вікна на 50 пікселів,
o установить колір тексту синій,
o виведе в поле текст «Ми використовуємо властивості поля!».
procedure TForm1.Button1Click(Sender: TObject); begin
...
end;
2. Створіть обробник події Click для кнопки, виконання якого встановить:
o червоний колір фону поля,
o шрифт символів Arial,
o розмір символів 14,
o збільшить ширину поля на 6 символів, o установить колір тексту білий
o виведе в поле текст «Ми вивчаємо інформатику!». procedure TForm1.Button1Click(Sender: TObject);
begin
...
end; СРОЧНО ДАЮ 30

Answer 1

Ответ:

procedure TForm1.Button1Click(Sender: TObject);

begin

// Встановлення червоного кольору фону поля

Edit1.Color := clRed;

// Встановлення шрифту Arial та розміру символів 14

Edit1.Font.Name := 'Arial';

Edit1.Font.Size := 14;

// Збільшення ширини поля на 6 символів

Edit1.Width := Edit1.Width + (Edit1.Canvas.TextWidth('X') * 6);

// Установка білого коліру тексту

Edit1.Font.Color := clWhite;

// Виведення тексту у поле

Edit1.Text := 'Ми вивчаємо інформатику!';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

// Встановлення зеленого кольору тла поля

Edit1.Color := clGreen;

// Зміна відступу поля від верхньої межі вікна

Edit1.Top := Edit1.Top + 150;

// Зменшення відступу поля від лівої межі вікна

Edit1.Left := Edit1.Left - 50;

// Встановлення синього коліру тексту

Edit1.Font.Color := clBlue;

// Виведення тексту у поле

Edit1.Text := 'Ми використовуємо властивості поля!';

end;