unit Main_Frm;

interface

uses

  Winapi.Windows,

  Winapi.Messages,

  System.SysUtils,

  System.Variants,

  System.Classes,

  Vcl.Graphics,

  Vcl.Controls,

  Vcl.Forms,

  qplugins_vcl_formsvc,

  qplugins_loader_lib,

  qstring,

  qplugins_base,

  QPlugins,

  qplugins_params,

  qplugins_vcl_messages,

  qplugins_formsvc,

  Vcl.Dialogs,

  Vcl.StdCtrls,

  Vcl.ComCtrls;

type

  TMain_Form = class(TForm)

    GroupBox1: TGroupBox;

    PageControl1: TPageControl;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    {Private declarations}

    procedure DoPageDoubleClick(ASender: TObject);

    procedure DockPage(AFormService: IQFormService; AHoldNeeded: Boolean = False);

    procedure DoDockChildFree(AForm: IQFormService);

  public

    {Public declarations}

  end;

var

  Main_Form: TMain_Form;

implementation

{$R *.dfm}

type

  // Page控件页面双击事件

  THackedPageControl = class(TPageControl)

  public

    property OnDblClick;

  end;

  // 程序关闭时，释放所有标签

procedure TMain_Form.DoDockChildFree(AForm: IQFormService);

var

  I: Integer;

begin

  for I :=  to PageControl1.PageCount -  do

  begin

    // 如果标签tag储存的是一个对话框

    if PageControl1.Pages[I].Tag = IntPtr(AForm) then

    begin

      // 释放

      AForm.UnhookEvents;

      FreeObject(PageControl1.Pages[I]);

      Break;

    end;

  end;

end;

// 双击Page标签事件

procedure TMain_Form.DoPageDoubleClick(ASender: TObject);

var

  AService: IQFormService;

begin

  // 双击关闭当前窗体

  if PageControl1.PageCount >  then

  begin

    // 当前页面

    AService := IQFormService(PageControl1.ActivePage.Tag);

    // 关闭并移除到服务关联事件的监听

    AService.Close;

    AService.UnhookEvents;

    // 释放

    FreeObject(PageControl1.ActivePage);

    if PageControl1.PageCount >  then

      PageControl1.ActivePageIndex := ;

  end;

end;

// 创建

procedure TMain_Form.FormCreate(Sender: TObject);

var

  APath: string;

begin

  // 查看内存泄露

  // ReportMemoryLeaksOnShutdown := True;

  // 路径

  APath := ExtractFilePath(Application.ExeName);

  // 加载DLL

  PluginsManager.Loaders.Add(TQDLLLoader.Create(APath, '.dll'));

  // 加载BPL

  PluginsManager.Loaders.Add(TQBPLLoader.Create(APath, '.bpl'));

  // 启动所有的加载器加载支持的插件

  PluginsManager.Start;

  PageControl1.ControlStyle := PageControl1.ControlStyle + [csClickEvents, csDoubleClicks];

  // 替换Page控件页面双击事件，用于双击页签关闭某一页

  THackedPageControl(PageControl1).OnDblClick := DoPageDoubleClick;

end;

// 销毁

procedure TMain_Form.FormDestroy(Sender: TObject);

var

  I:            Integer;

  AFormService: IQFormService;

begin

  // 循环释放窗口

  for I :=  to PageControl1.PageCount -  do

  begin

    // IQFormService为窗体服务的接口

    AFormService := IQFormService(PageControl1.Pages[I].Tag);

    // 移除到服务关联事件的监听

    AFormService.UnhookEvents;

  end;

end;

// 嵌入窗体

procedure TMain_Form.DockPage(AFormService: IQFormService; AHoldNeeded: Boolean);

var

  APage:   TTabSheet;

  AEvents: TQFormEvents;

begin

  // 创建页签

  APage := TTabSheet.Create(PageControl1);

  APage.PageControl := PageControl1;

  // 设置页签名

  APage.Caption := (AFormService as IQService).Name;

  // 储存AFormService

  APage.Tag := IntPtr(AFormService);

  // 嵌入窗体到父窗口的特定的位置

  AFormService.DockTo(APage.Handle, TFormAlign());

  FillChar(AEvents, SizeOf(AEvents), );

  // 窗口释放事件

  AEvents.OnFree := DoDockChildFree;

  // 挂接服务关联的窗口事件

  AFormService.HookEvents(AEvents);

  // 创建 TQInterfaceHolder

  if AHoldNeeded then

  begin

    HoldByComponent(APage, AFormService);

  end;

end;

// 创建实例

procedure TMain_Form.Button1Click(Sender: TObject);

var

  I:            Integer;

  AParent:      IQServices;

  AFormService: IQFormService;

begin

  // Supports函数返回对象是否支持指定的接口

  if Supports(PluginsManager.ByPath('/Services/Docks/Forms'), IQServices, AParent) then

  begin

    for I :=  to AParent.Count -  do

    begin

      if Supports(AParent[I], IQFormService, AFormService) then

      begin

        if not AFormService.IsMultiInstance then

        begin

          // 嵌入窗体

          DockPage(AFormService);

        end;

      end;

    end;

    // 激活窗口

    if PageControl1.PageCount >  then

    begin

      PageControl1.ActivePageIndex := ;

    end;

  end;

  // 创建的是单实例的，所以不应重复创建

  Button1.Enabled := False;

end;

end.

unit Frm_Dll;

interface

uses

  Winapi.Windows,

  Winapi.Messages,

  System.SysUtils,

  System.Variants,

  System.Classes,

  Vcl.Graphics,

  Vcl.Controls,

  Vcl.Forms,

  Vcl.Dialogs,

  Vcl.StdCtrls;

type

  TForm_Dll = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form_Dll: TForm_Dll;

implementation

{$R *.dfm}

uses

  qstring,

  QPlugins,

  qplugins_vcl_formsvc;

// 释放自己

procedure TForm_Dll.Button1Click(Sender: TObject);

begin

  FreeObject(Self);

end;

initialization

// 注册一个单实例服务

  RegisterFormService('/Services/Docks/Forms', 'DLL_Static', TForm_Dll, False);

finalization

// 取消一组服务的注册

  UnregisterServices('/Services/Docks/Forms', ['DLL_Static']);

end.