Напишіть код обробника події ОnClick для форми, виконання якого встановить червоний колір фону вікна, встановить відступ верхньої межі вікна 200 пікселів від верхньої межі екрана, збільшить його ширину на 300 пікселів, зменшить на 50 пікселів відступ лівої межі вікна від лівої межі екрана і виведе напис у текс «Ми вивчаємо мову програмування Delphi».

23 Июн 2020 в 19:42
121 +1
0
Ответы
1

Приведено код обробника події ОnClick для форми:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Color := clRed; // Встановлення червоного кольору фону вікна
Form1.Top := 200; // Встановлення відступу верхньої межі вікна від верхньої межі екрана
Form1.Width := Form1.Width + 300; // Збільшення ширини вікна на 300 пікселів
Form1.Left := Form1.Left - 50; // Зменшення відступу лівої межі вікна від лівої межі екрана
ShowMessage('Ми вивчаємо мову програмування Delphi'); // Виведення повідомлення
end;

У цьому коді при кліку на кнопку (подія OnClick) форми виконуються усі вказані в завданні дії.

18 Апр 2024 в 10:53
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир