MathgeomGLS

1
unit CHILDWIN;
2

3
interface
4

5
uses Winapi.Windows, System.Classes, Vcl.Graphics, Vcl.Forms, Vcl.Controls,
6
  Vcl.StdCtrls;
7

8
type
9
  TMDIChild = class(TForm)
10
    Memo1: TMemo;
11
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
12
  private
13
     
14
  public
15
     
16
  end;
17

18
implementation
19

20
{$R *.dfm}
21

22
procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
23
begin
24
  Action := caFree;
25
end;
26

27
end.
28