delphi中登录界面关闭直接现实主界面是怎么回事？

标签：app   showmodal   modal   main   登录   info   界面   begin   .sh   

修改工程文件：

Application.Initialize;

Application.CreateForm(TmainForm, mainForm);
 Application.ShowMainForm:= False;

if LoginForm.ShowModal then
    begin
     Application.ShowMainForm := True;
     Application.Run;
    end
else
begin
 Application.Terminate;
end;

delphi中登录界面关闭直接现实主界面是怎么回事？

标签：app   showmodal   modal   main   登录   info   界面   begin   .sh   

原文地址：http://www.cnblogs.com/jijm123/p/7857310.html