Delphi中编写DLL调用子窗口

初始在DLL中调用窗口直接使用Screen.ActiveForm然后show.效果:窗口出现立刻关闭，并提示错误.

网上搜索结果:

在Delphi中调用窗体有两种方式：模态调用与非模态调用。对应的方法是ShowModal与Show

在调用之前，首先需要了解一个事实：主程序的Application与DLL的Application实际上是两个不同的东西。这就是说，直接使用DLL自身的Application变量肯定得不到预期的结果。

解决的方法有两个：

⑴      主程序的Application句柄传递给DLL，并覆盖之。

⑵      主程序的Application直接传递给DLL，并覆盖之。

同理，也可以把主程序的Screen等全局变量传递给DLL，这样DLL实际使用的就是主程序的全局变量，也只有这样才能顺利的调用封装在DLL中的子窗体。

 

之后，搜索到一个DLL中调用窗口的源代码

 

var
  DLLApp: TApplication;

procedure Transfer(App: TApplication);
begin
  Application := App;
end;

 

procedure ExitDLL(Reason: Integer);
begin
  if Reason = DLL_PROCESS_DETACH then
  begin
    Application := DLLApp;
  end;
end;

 

begin
  DLLApp := Application;
  DLLProc := @ExitDLL;
end.

之后使用ShowModal方法，一切正常.

转载于:https://www.cnblogs.com/fred-rk/archive/2012/12/16/2820858.html