Question

Створіть проєкт, у якому в результаті настання події Click для вікна встановляться розміри вікна 500х500 пікселів, коричневий колір фону і зміниться текст заголовка на Проєкт з двома процедурами, а в результаті настання події MouseMove відкриється вікно повідомлень з текстом Я - громадянин України! мова програмування Pascal. Буду вдячна за допомогу

Answer 1

Ось код для такого проєкту:

program Project1;

uses

 SysUtils, Forms, Controls, Graphics, Dialogs;

procedure OnClickEvent(Sender: TObject);

begin

 // Встановити розміри вікна

 Form1.Width := 500;

 Form1.Height := 500;

 

 // Встановити колір фону

 Form1.Color := clBrown;

 

 // Змінити текст заголовка

 Form1.Caption := 'Проєкт з двома процедурами';

end;

procedure OnMouseMoveEvent(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

 // Відкрити вікно повідомлень

 ShowMessage('Я - громадянин України!');

end;

begin

 Application.Initialize;

 Application.CreateForm(TForm, Form1);

 

 // Підключити обробник події Click для вікна

 Form1.OnClick := @OnClickEvent;

 

 // Підключити обробник події MouseMove для вікна

 Form1.OnMouseMove := @OnMouseMoveEvent;

 

 Application.Run;

end.