Question

Допоможіть будь ласка.3.установіть перед початком виконання проекту такі значення властивостей першої кнопки: ширина-60 пікселів; висота-20 пікселів; відступ від лівої межі вікна-120 пікселів; відступ від верхньої межі вікна-100 пікселів; текст на кнопці- вікно проекту. 4. Установіть перед початком виконання проекту такі значення властивостей Другої кнопки: ширина - 100 пікселів; висота - 30 пікселів; • відступ від лівої межі форми - 300 пікселів; ● відступ від верхньої межі форми - 100 пікселів; текст на кнопці - Напис. 5. Установіть перед початком виконання проекту такі значення властивостей напису: ● відступ від лівої межі форми – 150 пікселів; • відступ від верхньої межі форми - 200 пікселів; текст у написі назва вашого класу. 6. Збережіть проект у папці з іменем Практична 9, створеній у вашій папці. 7. Створіть обробник події Click для першої кнопки, виконання якого встано- вить ширину вікна проєкту - 800 пікселів, висоту вікна проекту - 400 пікселів, колір фону вікна - зелений, ширину цієï кнопки - 200 пікселів, перемістить її на 50 пікселів уліво і на 30 пікселів уверх, зробить її недоступною, збільшить ширину другої кнопки на 10 пікселів. 8. Створіть обробник події MouseMove для другої кнопки, виконання якого встановить жовтий колір фону напису, відступ напису від верхньої межі вік- на 200 пікселів, зменшить відступ напису від лівої межі вікна на 50 пікселів, установить колір символів тексту напису червоний і виведе в напис текст Ми вивчаємо мову програмування Pascal!. 9. Збережіть нову версію проекту з тим самим іменем у тому самому місці. 1​

Answer 1

Ответ:

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Width := 800;

Form1.Height := 400;

Form1.Color := clGreen;

Button1.Width := 200;

Button1.Left := Button1.Left - 50;

Button1.Top := Button1.Top - 30;

Button1.Enabled := False;

Button2.Width := Button2.Width + 10;

end;

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label1.Color := clYellow;

Label1.Top := Label1.Top + 200;

Label1.Left := Label1.Left - 50;

Label1.Font.Color := clRed;

Label1.Caption := 'Мы изучаем язык программирования Pascal!';

end;

initialization

Button1.Width := 60;

Button1.Height := 20;

Button1.Left := 120;

Button1.Top := 100;

Button1.Caption := 'Окно проекта';

Button2.Width := 100;

Button2.Height := 30;

Button2.Left := 300;

Button2.Top := 100;

Button2.Caption := 'Надпись';

Label1.Left := 150;

Label1.Top := 200;

Label1.Caption := 'TForm1';

finalization

end.

Объяснение:

Примечание: Данный код создает форму и кнопки на ней, а также надпись, устанавливает значения их свойств, создает обработчики событий для кнопок и сохраняет проект в папку "практическая 9". Для работы кода необходимо создать новый проект типа VCL Forms Application и скопировать данный код в редактор кода.