点击login右上角的叉关闭时，不能关闭整个程序

Question

我通过主窗体调用login窗体，点击login右上角的叉关闭时，不能关闭整个程序，仍然弹出主窗体。我想在点右上角的叉时关闭login窗体时能关闭整个程序怎么做
  主窗体中的代码
    login := tlogin.Create(application);
    login.ShowModal;

Answer 1

关闭登录窗体的话，执行的是ShowModal之后的代码。
你没让它关闭整个工程啊如果要关闭整个工程的话，
login.ShowModal;
后面加上：
if login.ModalResult = mrCancel then
  Application.Terminate;