/
Dan73
/
test1
Обзор
Документация
Войти
/
Dan73
/
test1
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
master
SaveCL/SaveCI/unit1.pas
60 строк
1 KB
Dan73
upload files
13 фев 2026, 09:21
Верифицирован
13 фев 2026, 09:21
dbe0c93
Код
Авторство
О чём код?
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, StdCtrls; type { TForm1 } TForm1 = class(TForm) MainMenu1: TMainMenu; Memo1: TMemo; MenuItem1: TMenuItem; MenuItem2: TMenuItem; procedure FormCreate(Sender: TObject); procedure MenuItem1Click(Sender: TObject); procedure MenuItem2Click(Sender: TObject); private public end; var Form1: TForm1; implementation uses unit2, unit3; {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin end; procedure TForm1.MenuItem1Click(Sender: TObject); begin Form2.Left := 0; Form2.Top := 0; Form2.ShowModal; end; procedure TForm1.MenuItem2Click(Sender: TObject); begin Form2.Left := 0; Form2.Top := 0; Form3 := TForm3.Create (Self); //создает форму Form3 Form1.InsertControl (Form3); //добавляет внутрь формы Form1 Form3.Show; end; end.