Напишіть код обробника події ОnClick для форми, виконання якого встановить червоний колір фону вікна, встановить відступ верхньої межі вікна 200 пікселів від верхньої межі екрана, збільшить його ширину на 300 пікселів, зменшить на 50 пікселів відступ лівої межі вікна від лівої межі екрана і виведе напис у текс «Ми вивчаємо мову програмування Delphi».
procedure TForm1.Button1Click(Sender: TObject) begi Form1.Color := clRed; // Встановлення червоного кольору фону вікн Form1.Top := 200; // Встановлення відступу верхньої межі вікна від верхньої межі екран Form1.Width := Form1.Width + 300; // Збільшення ширини вікна на 300 пікселі Form1.Left := Form1.Left - 50; // Зменшення відступу лівої межі вікна від лівої межі екран ShowMessage('Ми вивчаємо мову програмування Delphi'); // Виведення повідомленн end;
У цьому коді при кліку на кнопку (подія OnClick) форми виконуються усі вказані в завданні дії.
Приведено код обробника події ОnClick для форми:
procedure TForm1.Button1Click(Sender: TObject)begi
Form1.Color := clRed; // Встановлення червоного кольору фону вікн
Form1.Top := 200; // Встановлення відступу верхньої межі вікна від верхньої межі екран
Form1.Width := Form1.Width + 300; // Збільшення ширини вікна на 300 пікселі
Form1.Left := Form1.Left - 50; // Зменшення відступу лівої межі вікна від лівої межі екран
ShowMessage('Ми вивчаємо мову програмування Delphi'); // Виведення повідомленн
end;
У цьому коді при кліку на кнопку (подія OnClick) форми виконуються усі вказані в завданні дії.