Question

Створіть проект, під час виконання якого буде вiдкриватися вікно з такими значеннями властивостеей:
• колір фону - cipий
• ширина 200 пікселів;
висота - 100 пікселів;
• відступ лівої межі - 150 пікселіе;
• відступ верхньої межі - 100 пікселів;
• текст у рядку заголовка - Практична робота ​
2. Додайте до проєкту обробник подій Click для вікна, виконання якого установить червоний колір фону вікна, відступ верхньої межі вікна 200 пікселів від верхньої межі екрана, збільшить його ширину на 300 пікселів, зменшить на 50 пікселів відступ лівої межі вікна від лівої межі екрана, відкриє вікно повідомлень з текстом Ми вивчаємо програмування!
На мові Pascal. Наперед дякую!

Answer 1

Відповідь:

program PracticalWork;

uses

 Forms, Controls, Dialogs;

var

 MainForm: TForm;

procedure MainFormClick(Sender: TObject);

begin

 MainForm.Color := clRed;

 MainForm.Width := MainForm.Width + 300;

 MainForm.Left := MainForm.Left - 50;

 MainForm.Top := 200;

 ShowMessage('Ми вивчаємо програмування!');

end;

begin

 MainForm := TForm.Create(nil);

 try

   MainForm.Color := clTeal;

   MainForm.Width := 200;

   MainForm.Height := 100;

   MainForm.Left := 150;

   MainForm.Top := 100;

   MainForm.Caption := 'Практична робота';

   MainForm.OnClick := MainFormClick;

   MainForm.ShowModal;

 finally

   MainForm.Free;

 end;

end.