Question

Помогите пж!! даю 50 балов! Распишите что за чем писать пж). створіть проект у якому в результаті настання події create () зміняться розміри вікна, колір фону і зменшується на 100 пікселів відступ його лівої межі від лівої межі екрана. пжпжп прошууу. ДАМ 5 ЗВЕЗД ЗА ОТВЕТ!!!​ (ПРАЦЮЮ В ЛАЗАРУСЕ)​

Answer 1

Відповідь:

Пояснення:

Приведений нижче код реалізує вказані дії в середовищі Lazarus:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

 Classes, SysUtils, Forms, Controls, Graphics, Dialogs;

type

 TForm1 = class(TForm)

   procedure FormCreate(Sender: TObject);

 private

 public

 end;

var

 Form1: TForm1;

implementation

{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

 // Змінюємо розміри вікна на 600x400 пікселів

 Form1.Width := 600;

 Form1.Height := 400;

 // Змінюємо колір фону вікна на синій

 Form1.Color := clBlue;

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

 Form1.Left := 100;

end;

end.

У цьому коді метод FormCreate викликається при настанні події create(), яка відбувається при запуску програми. У методі виконуються зміни розмірів вікна, коліру фону і відступу лівої межі вікна від лівої межі екрана.