초기에 Splash Form이 뜬 후 Login 창이 뜨게 됩니다..
Login 을 하면 DB에서 query하여 인증을 하게 됩니다..
인증이 되면 F_Login.close; 하게 되면 자동으로 main from이 뜨는데요..

문제는 Login 창에서 cancel 하면
Application.Terminate;
으로 처리하는데... 바로 종료되는게 아니고...
main화면과 다른 여러가지 폼들이 다 생성이 된 후 종료가 됩니다..
그래서 보기에도 그렇고 별로 안좋네요..

Login인증과정에서 취소하면 프로그램에 바로 종료되게 할려면 어떻게 해야 하는지요???

다음 소스는 .dpr 프로젝트 소스입니다..




  Application.Initialize;
  Application.ShowMainForm := false;  //

  F_Splash := TF_Splash.Create(nil);
  F_Splash.Show;
  F_Splash.Delay(3000);

  Application.CreateForm(TDM, DM);

  // Login
  F_Login := TF_Login.Create(nil);
  F_Splash.Close;
  F_Login.showmodal;

  Application.CreateForm(TF_EMS_main, F_EMS_main);
  Application.CreateForm(TF_Auto_Script, F_Auto_Script);
  Application.CreateForm(TF_Ftp, F_Ftp);
  Application.CreateForm(TF_Detail_info, F_Detail_info);
  Application.CreateForm(TF_About, F_About);
  Application.CreateForm(TF_New_Area, F_New_Area);
  Application.CreateForm(TF_New_Operator, F_New_Operator);
  Application.CreateForm(TF_Define_Query, F_Define_Query);
  Application.CreateForm(TF_Gateway, F_Gateway);
  Application.Run;