DLL中封装窗体

在DLL中可以封装窗体，需要解决的关键问题在于DLL中的Application对象和调用的Application对象是有区别的。对于一般的应用程序来说，Application 对象是 VCL 固定的，一般不需要修改Application对象指针。但是在 DLL中，使用窗体或者使用 Application对象时，必须使 DLL的 Application和调用程序一样，这样才不至于混淆。如果不修改 Application 对象，那么应用程序退出的时候，可能会出现错误。例如使用如下代码在调用程序中导出一个函数： function DllFunction(App:TApplication;PForm:TForm):TForm2;stdcall; begin Result:=TForm2.Create(PForm); end; 当主程序退出时，就有可能发生错误。 解决该问题的步骤如下： •  按照创建 DLL 的步骤新建一个 DLL 项目。 •  在 DLL 项目中新建一个需要封装的窗体，并根据需要添加窗体代码。 •  增加一个过程，过程以应用程序的句柄作为参数，并将此句柄赋值给 DLL 的 Application 对象 的句柄，示例代码如下： procedure SynAPP(App:THandle );stdcall; begin   Application.Handle := App; end; •  编译生成 DLL 文件。 •  应用程序中需要调用封装在 DLL 中的窗体时，首先调用 SynAPP 过程，然后进行其他操作。

 

下面举例说明这个步骤。在 DLL 中封装一个窗体，窗体中只有一个“随机颜色”按钮，单击该按 钮则改变窗体的背景色。 首先，新建一个 DLL 项目工程，新建一个窗体并在该窗体上添加一个名为“随机颜色”的按钮， 其 Click 事件处理代码如下： procedure TfrmDLL.Button1Click(Sender: TObject); begin   Color := RandomRange(0,255 * 255 * 255 );  end; 然后，在窗体中增加方法 SynApp 和显示窗体的方法 ShowForm。代码如下： interface {省略了其他代码}   procedure SynAPP(App:THandle);stdcall;   procedure ShowForm;stdcall; implementation procedure SynAPP(App:THandle );stdcall; begin   Application.Handle := App; end; procedure ShowForm;stdcall; begin   try     frmDLL := TfrmDLL.Create (Application);     try        frmDLL.ShowModal;

   ally        frmDLL.Free;     end;   except     on E: Exception do        MessageDlg (’Error in DLLForm: ’ +          E.Message, mtError, [mbOK], 0);   end; end; 在 DLL 项目文件中增加导出函数/过程的声明： exports   SynAPP,ShowForm; 编译之后 DLL 就创建完成了。 在使用 DLL 时，首先必须调用 SynApp，并且将主程序的 Application 的句柄作为参数传递，否则 主程序退出时会引起操作系统错误。 主程序也非常简单，就是在一个窗口中加入一个按钮，直接显示封装在 DLL 中的窗体。 首先声明需要导入的过程： interface {省略了其他代码} procedure SynAPP(App:THandle);stdcall;external ’FormDLL.dll’; procedure ShowForm;stdcall;external ’FormDLL.dll’; 调用封装在 DLL 中的窗体的代码并添加在按钮的 Click 事件处理过程中： procedure TForm1.Button1Click(Sender: TObject); begin   SynApp(Application.Handle ); {首先必须调用这个过程，并且使用 Application 的句柄作为参数}   ShowForm ; end;