建立DLL項目：

library ShowDllForm;
....
Uses ...
Exports //輸出引用
ShowDllModalForm, //顯示模態窗體
ShowDllForm; //顯示非模態窗體
begin
end.

加入DLL窗體：

Unit DllFrm; //DllFrm表單源碼
interface
...
...
private
...
public
...
end.
//聲明過程
Procedure ShowDllModalForm(aHandle:THandle);stdcall;
Procedure ShowDllForm(aHandle:THandle);stdcall;
......
implementation
....
procedure ShowDllModalForm(aHandle:THandle);
begin
?? application.handle:=ahandle;
?? with TDllFrm.create(application) do
?? begin
??????? try
?????????? showmodal;
??????? finally
?????????? free;
??????? end;
?? end;
end;
Procedure ShowDllForm(aHandle:THandle);
begin
?? application.handle:=ahandle;
?? with tdllfrm.create(application) do
???????? show;
end;
.....
end.

靜態調用：

//聲明過程：
Unit ...
Interface ...
uses ...
?? //聲明靜態鏈接DLL引出的過程
?? procedure ShowDllModalForm(aHandle:tHandle);stdcall external '.\ShowDllForm.dll';
?? procedure ShowDllForm(aHandle:thandle);stdcall external '.\showdllform.dll';
type...
.....
procedure TForm1.Button1Click(Sender: TObject);
begin
//按聲明的函數調用DLL引出的過程，參數是當前應用程序的句柄
showdllmodalform(application.Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//按聲明的函數調用DLL引出的過程，參數是當前應用程序的句柄
showdllform(application.Handle);
end;

end.

動態調用：

unit ...
interface ...
uses
??? ....
type
??? .....
private
??? DllHandle:THandle; //DLL句柄

??? TShowDllForm=procedure(aHandle:THandle);stdcall; //類定義，DLL引出的過程類型

??? ....
//表單建立時裝入DLL文件
procedure TForm1.FormCreate(sender:tobject);
begin
?? DllHandle:=LoadLibrary('.\dll\DllShowForm.dll');
?? if DllHandle=0 then
????? showmessage('無法裝入DLL文件.');
end;
//表單釋放時，同時釋放Dll
procedure TForm1.FormDestroy(sender:Tobject);
begin
?? freelibrary(dllhandle);
end;

//顯示模態窗體
var
?? ShowModalForm:TShowDllForm;
begin
?? @ShowModalForm:=GetProcAddress(dllhandle,'ShowDllModalForm');
?? showModalForm(application.handle);
end;

//顯示非模態窗體
var
?? showFrm:TshowDllForm;
begin
?? @showfrm:=GetProcAddress(dllHandle,'ShowDllForm'); //注意DLL內函數名的大小寫
?? showfrm(application.handle);
end;

總結

以上是生活随笔為你收集整理的dll窗体的创建与调用的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。