Створіть проєкт, виконання якого відкриє вікно синього кольору з розміра- ми 200 450 пікселів і змінить текст у рядку заголовка вікна на ваше ім’я. ЗбережітьпроєктупапцізіменемЗавдання6.1.2,створенійувашійпапці.
Зробити в Lazarus!!!
Допоможіть!!!! Треба сьогодні
Answers & Comments
Verified answer
Відповідь:
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%