这个DEMO中主要是在DLL中建立了一个IDockableControl类,并在DLL的子类中写了具体的实现方法。

在主程序exe中,找到这个服务,然后调用DLL的内嵌方法,把DLL插件窗口内嵌到主程序中。

界面如下

DLL代码如下:

unit Frm_Dll;

interface

uses
Winapi.Windows,
Winapi.Messages,
System.SysUtils,
System.Variants,
System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
qstring,
QPlugins,
Vcl.Imaging.jpeg,
Vcl.ExtCtrls,
Vcl.StdCtrls,
Vcl.AxCtrls,
qplugins_base,
qplugins_vcl_messages; type
TForm_Dll = class(TForm)
Panel1: TPanel;
Button1: TButton;
CheckBox1: TCheckBox;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
Label1: TLabel;
private
{ Private declarations }
protected
procedure CreateParams(var Params: TCreateParams); override;
public { Public declarations }
end; // 创建一个接口,方法都由子类来实现
IDockableControl = interface
['{D0A4BDFA-CB29-4725-9158-C199B9C373C9}']
procedure DockTo(AHandle: HWND); stdcall;
procedure HostSizeChanged; stdcall;
end; // 接口方法的类
TDockableService = class(TQService, IDockableControl)
protected
FForm: TForm;
procedure DockTo(AHandle: HWND); stdcall;
procedure HostSizeChanged; stdcall;
public
constructor Create(const AId: TGuid; AName: QStringW); overload; override;
destructor Destroy; override;
end; TDockInstanceService = class(TQService)
public
function GetInstance: IQService; override; stdcall;
end; var
Form_Dll: TForm_Dll; implementation {$R *.dfm}
{ TDockableService } constructor TDockableService.Create(const AId: TGuid; AName: QStringW);
begin
// 继承
inherited Create(AId, AName);
end; // 销毁
destructor TDockableService.Destroy;
begin
FreeAndNil(FForm);
inherited;
end; // 内嵌窗口
procedure TDockableService.DockTo(AHandle: HWND);
begin
// 创建窗体
FForm := TForm_Dll.Create(nil);
FForm.BorderStyle := bsNone;
FForm.ParentWindow := AHandle;
FForm.DoubleBuffered := True;
FForm.Show;
// 设置窗口大小
HostSizeChanged;
end; procedure TDockableService.HostSizeChanged;
var
R: TRect;
begin
// 取父窗口大小
GetClientRect(Winapi.Windows.GetParent(FForm.Handle), R);
// 设置子窗口大小
FForm.SetBounds(, , R.Width, R.Height);
end; { TDockInstanceService } function TDockInstanceService.GetInstance: IQService;
begin
Result := TDockableService.Create(NewId, 'DockableService');
end; { TForm2 } procedure TForm_Dll.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style and (not(WS_CAPTION or WS_THICKFRAME));
// 不要标题和边框,实际上就是 BorderStyle 为 bsNone 的效果
end; initialization // 注册 /Services/Docks/Frame 服务
RegisterServices('Services/Docks', [TDockInstanceService.Create(IDockableControl, 'Frame')]); finalization // 取消服务注册
UnregisterServices('Services/Docks', ['Frame']); end.

EXE代码如下

unit Frm_Main;

interface

{
VCL DLL或主程序需要引用 QPlugins.VCL 单元,该单元实现了替代的消息处理和派发
}
uses
Winapi.Windows,
Winapi.Messages,
System.SysUtils,
System.Variants,
System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.ComCtrls,
Vcl.StdCtrls,
Vcl.ExtCtrls,
QPlugins,
QPlugins_loader_lib,
QPlugins_Vcl_Messages; type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
PageControl1: TPageControl;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure PageControl1Resize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; // DLL中的接口,方法都由DLL的子类来实现
IDockableControl = interface
['{D0A4BDFA-CB29-4725-9158-C199B9C373C9}']
procedure DockTo(AHandle: HWND); stdcall;
procedure HostSizeChanged; stdcall;
end; // 加强的Tabsheet
TDockHostPage = class(TTabSheet)
private
procedure SetDockedControl(const Value: IDockableControl);
protected
FDockedControl: IDockableControl;
public
property DockedControl: IDockableControl read FDockedControl write SetDockedControl;
end; var
Form1: TForm1; implementation {$R *.dfm} // 按钮_新页
procedure TForm1.Button1Click(Sender: TObject);
var
ACtrl: IDockableControl;
ATabSheet: TDockHostPage;
begin
// 根据'Services/Docks/Frame'找到DLL中的TDockInstanceService服务
ACtrl := PluginsManager.ByPath('Services/Docks/Frame') as IDockableControl;
// 如果这个服务存在
if Assigned(ACtrl) then
begin
// 创建一个加强的Tabsheet,并把DLL中的TDockInstanceService服务内嵌进去
ATabSheet := TDockHostPage.Create(PageControl1);
ATabSheet.PageControl := PageControl1;
ATabSheet.Caption := '第 ' + IntToStr(PageControl1.PageCount) + ' 页';
ATabSheet.DockedControl := ACtrl;
// 激活
PageControl1.ActivePage := ATabSheet;
end
else
begin
Application.MessageBox('Services/Docks/Frame 服务未注册,请编译DLL先。', '服务未注册', MB_OK or MB_ICONSTOP);
end;
end; // 创建
procedure TForm1.FormCreate(Sender: TObject);
var
APath: string;
begin
ReportMemoryLeaksOnShutdown := True;
APath := ExtractFilePath(Application.ExeName);
// 注册默认的 DLL 加载器,扩展名可以根据实际的情况随意修改,多个扩展名之间用逗号或分号分隔
PluginsManager.Loaders.Add(TQDLLLoader.Create(APath, '.dll'));
// 启动插件注册,如果要显示加载进度,可以注册IQNotify响应函数响应进度通知
PluginsManager.Start;
end; // 窗口大小调整
procedure TForm1.PageControl1Resize(Sender: TObject);
var
I: Integer;
APage: TDockHostPage;
begin
// 遍历窗体
for I := to PageControl1.PageCount - do
begin
APage := PageControl1.Pages[I] as TDockHostPage;
if APage.DockedControl <> nil then
begin
APage.DockedControl.HostSizeChanged;
end;
end;
end; { TDockHostPage } // 接口作为参数传过来就内嵌到加强的Tabsheet中
procedure TDockHostPage.SetDockedControl(const Value: IDockableControl);
begin
if FDockedControl <> Value then
begin
FDockedControl := Value;
if Assigned(Value) then
begin
// DLl中的内嵌窗口函数
Value.DockTo(Handle);
end;
end;
end; end.

012.Delphi插件之QPlugins,多实例内嵌窗口服务的更多相关文章

  1. 013.Delphi插件之QPlugins,模块化代码示例

    这个DEMO的是一个定义了一个窗体插件接口,把其他窗口注册到这个窗体插件接口中.主程序运行起来,就遍历一下窗体插件接口,把每个窗体内嵌到对话框中 运行效果如下 主窗口代码如下 unit Frm_Mai ...

  2. 015.Delphi插件之QPlugins,FMX插件窗口

    内嵌FMX的插件窗口,效果还是很可以的.退出时,会报错,很诡异啊. 主窗口代码如下 unit Frm_Main; interface uses Winapi.Windows, Winapi.Messa ...

  3. 004.Delphi插件之QPlugins,参数传递

    界面如下 插件框架中大量使用了接口的东西,看的眼花缭乱,很多地方只做了申明,具体的实现是在另外的子类. DLL的代码如下 unit ParamTest; interface uses classes, ...

  4. WPF内嵌WCF服务对外提供接口

    要测试本帖子代码请记得管理员权限运行vs. 我写这个帖子的初衷是在我做surface小车的时候有类似的需求,感觉这个功能还挺有意思的,所以就分享给大家,网上有很多关于wcf的文章 我就不一一列举了.公 ...

  5. 014.Delphi插件之QPlugins,MDI窗口

    不知道为什么,这个DEMO编译出来报错,运行不了,在QDAC群里问了一下也没人响应. 效果如下 主程序代码如下 unit Frm_Main; interface uses Winapi.Windows ...

  6. 011.Delphi插件之QPlugins,延时加载服务

    这个DEMO是是把DLL插件的相关信息做成了一个配置文件,主程序加载这个配置文件,从而起到延时加载的作用 主程序代码如下 unit Frm_Main; interface uses Winapi.Wi ...

  7. 010.Delphi插件之QPlugins,遍历服务接口

    这个DEMO注意是用来看一个DLL所拥有的全部服务接口 演示效果如下 代码如下: unit Frm_Main; interface uses Winapi.Windows, Winapi.Messag ...

  8. 009.Delphi插件之QPlugins,服务的热插拔

    这个DEMO用来演示服务的替换,用起来总是怪怪的感觉,效果图如下 代码如下 unit Frm_Main; interface uses Winapi.Windows, Winapi.Messages, ...

  9. 007.Delphi插件之QPlugins,插件的卸载和重新加载

    效果图如下,可以反复卸载和重新加载.QPlugins这个插件,还没弄明白,摸索着跟着DEMO写 主窗口代码如下 unit Frm_Main; interface uses Winapi.Windows ...

随机推荐

  1. Matlab的简单数据保存读取

    1.使用load进行文件读取 例如读入文件名为'filename.txt'中的数据,那么可以使用以下代码: load('filename.txt') 注意:filename.txt中的数据应符合矩阵形 ...

  2. 匈牙利命名法、Camel命名法与Pascal命名法

    Camel命名法:即骆驼式命名法,首字母小写,采用该命名法的名称看起来就像骆驼的驼峰一样高低起伏.Camel命名法有两种形式: 1.混合使用大小写字母,例如runFast 2.单词之间加下划线,例如r ...

  3. c++中的运算符重载operator1(翁恺c++公开课[30]学习笔记)

    运算符重载规则: 只有已经存在的运算符才能被重载,不能自己制造一个c++中没有的运算符进行重载 重载可以在类或枚举类型内进行,也可以是全局函数,但int.float这种已有的类型内是不被允许的 不能二 ...

  4. RESTFul Client入门实例

    client.html文件内容为: <!DOCTYPE html> <html> <head> <title>RESTFul Client test p ...

  5. C++11 — lambda表达式(匿名函数)

    C++11中lambda表达式的基本语法格式为: [capture](parameters) -> return_type { /* ... */ } 其中 [] 内为外部变量的传递方式: [] ...

  6. Python3---常见函数---range()用法

    0X01函数说明: python range() 函数可创建一个整数列表,一般用在 for 循环中. 0X02函数语法: range(start,stop[,step]) start: 计数从 sta ...

  7. python中时间戳的探索

    声明 本文章只针对python3.6及以上版本. 问题提出 首先,我们先import一些必要模块: In [1]: from datetime import datetime, timezone, t ...

  8. Linux设备驱动的软件架构思想

    驱动相关:硬件之上的软件层,负责底层硬件与用户程序的交互 设备相关:底层设备的硬件操作 总线:匹配设备和驱动     设备驱动分层的思想:为同一类设备设计一个框架,而框架中的核心层则实现了该设备的一些 ...

  9. BurpSuite 1.7.32 Cracked 破解版[注册机]下载【无后门版】

    首先看一下我的注册后的: 注册机的使用也很简单,首先打开burp-loader-keygen.jar文件,然后随便填写license text,比如我填写的是:mrxn.net效果如下图: 然后点击m ...

  10. 在webView中除去广告

    首先建一个ADFilterTool.java类 代码如下 import android.content.Context; import android.content.res.Resources; p ...