MathgeomGLS

1
unit Mdemo1;
2

3
interface
4

5
uses
6
  Winapi.Windows,
7
  Winapi.Messages,
8
  System.SysUtils,
9
  System.Classes,
10
  Vcl.Graphics,
11
  Vcl.Controls,
12
  Vcl.Forms,
13
  Vcl.Dialogs,
14
  Vcl.Tabs;
15

16
type
17
  TDemoForm = class(TForm)
18
    TabSet1: TTabSet;
19

20
    procedure FormCreate(Sender: TObject);
21
//    procedure TabSet1Change(Sender: TObject; NewTab: Integer;   var AllowChange: Boolean);
22
  private
23
    guest: TForm;
24
     
25
  public
26
     
27
  end;
28

29
var
30
  DemoForm: TDemoForm;
31

32
implementation
33

34
uses
35
  Contour;
36

37
{$R *.DFM}
38

39
procedure TDemoForm.FormCreate(Sender: TObject);
40
begin
41
  guest := nil;
42
  ControlStyle := ControlStyle + [csOpaque];
43
  FreeLibrary(GetModuleHandle('OleAut32'));
44
    if guest = nil then guest := TContourForm.Create(Application);
45
  guest.Show;
46
end;
47

48
end.
49

50