这个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. git 从创建到推送到远程,到拉取,实操

    https://www.liaoxuefeng.com/wiki/896043488029600/900003767775424 初始化 git init 添加所有文件到暂存区 git add . c ...

  2. CentOS初始化脚本(未完)

    #!/bin/bash release=`` .shutdown selinux [ -e "/etc/selinux/config" ] && sed -i 's ...

  3. Hot Module Replacement [热模块替换]

    安装了webpack-dev-server后 , 配置 "start": "webpack-dev-server" 然后运行 npm start 会开起一个we ...

  4. Scrapy采集某小说网站的全部小说

    链接: https://pan.baidu.com/s/1hrgYDzhgQIDrf4KmZxhW1w 密码: h1m6 源码以及运行图

  5. 使用SourceTree的注意事项

    1.我使用SourceTree时,使用的下面的配置全局忽略: *~ .DS_Store xcuserdata 2. 远程仓库的url路径不要使用域名,而应该使用ip地址.否则会显示“这是一个无效的ur ...

  6. cmd进入任何一个文件夹的步骤?

    cmd进入任何一个文件夹的步骤具体如下: 步骤如下: 1.点击左下角[开始],在搜索程序和文件中输入:cmd,进入cmd命令窗口: 2.进入到D盘,在cmd命令窗口输入:D: 3.进入D盘后,输入:c ...

  7. 三 SprigMvc与Mybatis整合&实现商品列表功能

    思路: Dao层: 1 逆向工程生成mapper及其配置文件以及pojo 2 SqlMapConfig.xml,空文件即可,需要文件头 3 applicationContext-dao.xml a 数 ...

  8. java并发:join源码分析

    join join join是Thread方法,它的作用是A线程中子线程B在运行之后调用了B.join(),A线程会阻塞直至B线程执行结束 join源码(只有继承Thread类才能使用) 基于open ...

  9. 用java实现输出英文小说飘中出现次数最多的前N个单词(附:使用文件读写)

    本文参考于:https://blog.csdn.net/u014204432/article/details/40348839 一.题目 输出单个文件(<飘> 英文版)中的前 N 个最常出 ...

  10. 第3节 storm高级应用:4、5、ack机制,以及其验证超时

    4.  消息不丢失机制 4.1.ack是什么 ack 机制是storm整个技术体系中非常闪亮的一个创新点. 通过Ack机制,spout发送出去的每一条消息,都可以确定是被成功处理或失败处理, 从而可以 ...