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
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
More Questions From This User See All
Answers & Comments
Ответ:
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;