Question

Створіть проєкт, виконання якого відкриє вікно синього кольору з розміра- ми 200  450 пікселів і змінить текст у рядку заголовка вікна на ваше ім’я. ЗбережітьпроєктупапцізіменемЗавдання6.1.2,створенійувашійпапці.

Зробити в Lazarus!!!

Допоможіть!!!! Треба сьогодні

Answer 1

Відповідь:

program Task_6_1_2;

uses

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

{$R *.lfm}

type

 { TForm1 }

 TForm1 = class(TForm)

   procedure FormCreate(Sender: TObject);

 private

 public

 end;

var

 Form1: TForm1;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

 //Change the window size

 self.Height := 450;

 self.Width := 200;

 

 //Change the title bar

 self.Caption := 'Your Name Here';

 

 //Change the window's background color

 self.Color := clBlue;

end;

begin

 Application.Initialize;

 Application.CreateForm(TForm1, Form1);

 Application.Run;

end.

Пояснення:

Важке питання, наді.сь відповідь правильна! Впевнений на 90%