简单问题？

Question

FormShow
还要在密码窗口检验如果按取消就application.terminate这样就不进入主窗口

Answer 1

1.定義一全局變量 LoginSucessed  :Boolean ;
2.在主窗的FormActivate事件中加入代碼：
if not LoginSucessed  then // 即為第一次登錄本系統
 begin
  with TLoginFrm.Create(Application) do   //建產登錄窗體
  try
    if ShowModal <> mrOK then  //如果登錄成功則模式窗體返加 mrOK
      Application.Terminate;
  finally
    Free;
  end;
  LoginSucessed := True;
...