运行这个范例,会自动检测 Delphi 编写的 DLL 是否存在,不存在会自动打开 Delphi 工程,也便是这个文件:
~\codes\范例程序) 调用其他措辞\D) Delphi\Project1.dpr
把稳上面路径前面 ~ 符号,这在 aardio 里表示当前 EXE 文件所在目录。
首先在 Delphi 的窗口源码( Unit1.pas 文件) 添加一个创建窗口的函数如下:

function CreateForm(parentHandle: HWND): HWND; stdcall;var Form1 : TForm1;begin Form1 := TForm1.CreateParented(parentHandle); Form1.Show; Result := Form1.Handle;end;
这个函数吸收一个外部窗口的句柄,并且将 TForm1 创建为外部窗口的子窗口,然后返回创建窗口的句柄,把稳在 Delphi 工程的 exports 语句中导出 CreateForm 函数 。
然后在 aardio 中调用该函数创建控件,这里要把稳几个知识点:
1、在 win.ui.ctrl 名字空间下创建类,就可以在窗体上利用该控件类名,例如我们新建或导入一个类 win.ui.ctrl.delphiForm, 然后我们就可以拖一个自定义控件到窗体上,并且将该控件的类名改为 delphiForm 就可以了。
2、自定义控件可以返回创建控件的参数或类名,也可以直接创建控件并将控件窗口的句柄包含到 hwnd 属性中。
下面我们在 aardio 中编写 win.ui.ctrl.delphiForm 控件:
var delphiDll = raw.loadDll($"\Project1.dll");class win.ui.ctrl.delphiForm{ ctor(parent,tParam){ this.hwnd = delphiDll.CreateForm(parent.hwnd); }; @..win.ui.ctrl.metaProperty()}
可以将上面的源码放到库文件中,再用 import win.ui.ctrl.delphiForm 语句导入,大家可以在标准库中打开 win.ui.ctrl 名字空间,可以看到非常多的控件类库。
这里要解释一下,为什么 raw.loadDll($"\Project1.dll"); 这里要加一个 $ 符号,这在 aardio 中用于将文件编译到代码中,然后运行时通过内存加载该 DLL文件,也便是发布后就不再须要该 DLL了,这非常方便。当然,不是必须要这样做,也有一些 DLL 并不支持内存加载。
可以看到,在 aardio 中调用 Delphi 的导出函数非常大略,直接调用就可以了,不须要任何繁芜的代码,实际上只要能编写 DLL 的措辞,我们都可以类似去调用他。
那么在 Delphi 里如何调用 aardio 函数呢?!
实在很大略,只要能调用 Delphi 函数,那么就可以把 aardio 函数作为回调函数传给 Delphi ,这种方法很常用,在文档里也有详细解释,但这次我们不用这个方法。
本日我们换一个更大略的方法,aardio 窗口工具支持一个神奇的 _WM_THREAD_CALLBACK ,通过发送这个,就可以调用该窗口的成员函数,我们可以在 aardio 自带的范例查看这个的用法:
~\codes\范例程序\1) aardio 措辞\1) 多线程\12.threadCallback.aardio
有趣的是,这个方法也可以在 Delphi 里利用,我在Delphi 工程范例里供应了一个 aardio .pas 文件,导入这个模块就可以利用这个调用 aardio 窗口的成员函数了,例如:
aardio.sendCallback(self.ParentWindow,'onTest( { int x;int y;} )',@TestStruct);
@TestStruct 是 Delphi 的一个构造体指针,而上面的 self.ParentWindow 则是 aardio 窗口的句柄,'onTest( { int x;int y;} )' 是函数原型声明,这句代码会调用 aardio 中的 winform.onTest 函数,并且参数会解析为 aardio 构造体 { int x;int y;}
aardio 中 winform.onTest 函数的源码如下:
winform.onTest = function(delphiStructParam){ winform.edit.print("Delphi 调用了aardio 函数,参数如下:"); winform.edit.print(delphiStructParam); delphiStructParam.x = 90; //可选返回修正后的构造体 return delphiStructParam;}
从上面的代码可以看到,我们不但可以吸收 Delphi 传过来的构造体参数,还可以修正这个构造体( 也便是直接修正 Delphi 的构造体,Delphi 中构造体的值会被改变)
在与Delphi 交互要把稳,Delphi 字符串利用的是ANSI 编码,而 aardio 利用的是 UTF-8 编码。
看一下运行后的效果:
把稳上面的构造体的值在第二次调用时已经被修正了。
利用这种办法嵌入 Delphi 控件,跟其他普通的自定义控件一样,具有 aardio 控件的所有自适应布局能力,支持固定边距、自适应大小等属性设置。