在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) 都不会有问题.}