Question

(лазарус) Запишіть у зошиті команду, яка: а) установить відступ вікна від верхньої межі екрана 100 пікселів; б) перемістить вікно на 200 пікселів управо; в) перемістить вікно на 200 пікселів уліво; г) перемістить вікно на 100 пікселів угору; д) перемістить вікно на 200 пікселів униз.

Answer 1

Ответ:

г)перемістить вікно на 200 пікселів угору;

Answer 2

У програмуванні за допомогою Lazarus (що є середовищем розробки для мови програмування Pascal), ви можете використовувати об'єкт TForm (форма) для взаємодії з вікнами. Для виконання зазначених вами завдань, потрібно використовувати властивості TForm та методи для зміни розташування та відступу вікна.

Нижче наведений приклад коду Pascal (Lazarus), який виконує ваші вказівки:

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

{ TForm1 }

TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private

public

end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  // а) Установить відступ вікна від верхньої межі екрана на 100 пікселів
  Top := 100;

// б) Перемістить вікно на 200 пікселів управо
  Left := Left + 200;

// в) Перемістить вікно на 200 пікселів уліво
  Left := Left - 200;

// г) Перемістить вікно на 100 пікселів угору
  Top := Top - 100;

// д) Перемістить вікно на 200 пікселів униз
  Top := Top + 200;
end;

end.

Цей код використовує подію `OnClick` кнопки для виклику процедури `Button1Click`, де виконуються необхідні дії для зазначених вами варіантів. Зверніть увагу, що код може бути адаптований залежно від конкретного контексту та потреб вашої програми.