Question

СРОЧНО ДАЮ 50 БАЛЛОВ
Мова лазаруса: створіть проєкт у якому в результаті настання події close (FocusOut) для вікна відкриється вікно повідомлень з текстом виконання проетку закінчено! до побачення!

Answer 1

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

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

type

 { TForm1 }

 TForm1 = class(TForm)

   btnClose: TButton;

   Edit1: TEdit;

   procedure btnCloseClick(Sender: TObject);

   procedure Edit1Exit(Sender: TObject);

 private

 public

 end;

var

 Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.btnCloseClick(Sender: TObject);

begin

 Close;

end;

procedure TForm1.Edit1Exit(Sender: TObject);

begin

 ShowMessage('Виконання проекту закінчено! До побачення!');

end;

end.