可以修改Project文件. with TLogin_w.Create(Application) do begin Try showmodal; If modalResult=mrok Then begin Application.Title := '; Application.CreateForm(Tmain_w, main_w); Application.run; end; finally free end; end;
----------------------------------------------
-