demo.dpr

模仿QQ的靠边停靠源码

program Demo;

uses
  Forms,
  UMain in 'UMain.pas' {Form1},
  UChild in 'UChild.pas' {Form2},
  GSDock;

{$R *.RES}

begin
  Application.Initialize;
  InitGSDockManager;
  Application.CreateForm(TForm1, Form1);
  LoadForms('\Software\Gavina\Demo\Workspace');
  Application.Run;
  SaveForms('\Software\Gavina\Demo\Workspace');
end.