/
Dan73
/
test1
Обзор
Документация
Войти
/
Dan73
/
test1
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
master
SaveCL/unit2.pas
40 строк
518 B
Dan73
Лазарус проект
13 фев 2026, 08:58
Верифицирован
13 фев 2026, 08:58
08fde64
Код
Авторство
О чём код?
unit Unit2; {$mode ObjFPC}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm2 } TForm2 = class(TForm) Button1: TButton; Edit1: TEdit; RadioButton1: TRadioButton; RadioButton2: TRadioButton; procedure Button1Click(Sender: TObject); private public end; var Form2: TForm2; implementation {$R *.lfm} { TForm2 } procedure TForm2.Button1Click(Sender: TObject); begin Close; end; end.