在DLL调用的时候要传入Application
例:
procedure CreateForm(vApp:TApplication);
begin
Application.handle:= vapp.handle;
Frm_1:= TFrm_TJJSQ.Create(Application);
Frm_1.Showmodal;
end;
{创建窗口前要设置application.handle.
可以将handle或整个application传过去.
设置dll环境的application的handle后,
不管窗口是用create(application),create(nil),create(self)
都不会有问题.}