/
Dan73
/
test1
Обзор
Документация
Войти
/
Dan73
/
test1
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
2
SaveCL/unit3.pas
37 строк
413 B
Dan73
Лазарус проект
13 фев 2026, 08:58
Верифицирован
13 фев 2026, 08:58
08fde64
Код
Авторство
О чём код?
unit Unit3; {$mode ObjFPC}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs; type { TForm3 } TForm3 = class(TForm) procedure FormCreate(Sender: TObject); private public end; var Form3: TForm3; implementation {$R *.lfm} { TForm3 } procedure TForm3.FormCreate(Sender: TObject); begin Left := 0; Top := 0; end; end.