delphi 封装Frame到Dll文件

做项目的时候，发现这个Frame很好用，为了省空间、调用和修改方便，就将Frame封装到dll(动态链接库)里面，确实很好使。

效果图如下：

上图是临时测试用的，忘了将Frame的align设置成alClient，不过刚好可以看出来白色区域是从dll里加载的Frame，还调用了Frame的按钮单击事件。

下面是大概的建立流程：

1、File -> New -> Other -> Delphi Projects -> 新建一个Dll文件

2、然后继续 File -> New -> Other -> Delphi Projects -> Delphi Files -> VCL Frame，新建一个Frame窗体

在dll里新建非Form的窗口视窗程序时，会弹出如下对话框，英文不去管它，直接点Yes，No的话我没试过，不确定啥后果。。

3、在Frame上随便放一些什么组件，这里我放置了一个Memo和Button来测试效果，如下图：

4、然后写上Button组件的OnClick事件，用于测试。

并在Frame单元的程序代码实现部分，{$R *.dfm}这个编译指令下面，写上一个创建Frame的过程，其他dll的相关操作和规范要求可以百度。

此处需要注意，需要手动定义一个 Frame(名字可以任意取): TFrame1(类名就是Frame的Name值，也可以任意取)。

5、编译并创建dll文件，我习惯右键Build。

快捷键我不熟悉，另附万一老师的快捷键大全：http://www.cnblogs.com/del/archive/2007/12/04/982851.html

编译后就得到了一个封装了Frame的Dll文件可供调用了，如下图：

6、最后新建一个Exe应用，静态或者动态调用Dll文件。

完整代码如下：

//Dll文件本身

library Project1;

{ Important note about DLL memory management: ShareMem must be the

first unit in your library's USES clause AND your project's (select

Project-View Source) USES clause if your DLL exports any procedures or

functions that pass strings as parameters or function results. This

applies to all strings passed to and from your DLL--even those that

are nested in records and classes. ShareMem is the interface unit to

the BORLNDMM.DLL shared memory manager, which must be deployed along

with your DLL. To avoid using BORLNDMM.DLL, pass string information

using PChar or ShortString parameters. }

uses

System.SysUtils,

System.Classes,

Unit1 in 'Unit1.pas' {Frame1: TFrame};

{$R *.res}

begin

end.

//Dll封装的Frame单元

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,

Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TFrame1 = class(TFrame)

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Frame1: TFrame1; //此处手动添加

implementation

{$R *.dfm}

procedure TFrame1.Button1Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('Hello Delphi! Hello World!' + #13#10 + 'Do You Love This World?');

end;

//Frame创建过程

procedure getFrameRun(Parent:THandle); stdcall; export;

begin

Application.handle := Parent;

//将容器设为应用程序句柄

//以非模态创建并显示窗口

if Frame1 = nil then

Frame1 := TFrame1.Create(Application);

Frame1.ParentWindow := Parent; //将容器设置为父窗口

Frame1.Show;

end;

//exports

exports

getFrameRun;

end.

//调用Dll的程序单元

unit Unit2;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

//dll文件如果不在同一文件夹就加上路径

procedure getFrameRun(Parent:THandle); stdcall; external 'Project1.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

getFrameRun(Panel1.Handle); //静态调用创建Frame1

end;

end.

来源：https://www.cnblogs.com/go-jzg/p/4114136.html

推荐分享