登录窗口与主窗口的问题

Question

本人想通过登录窗口输入用户名和密码后才让主窗口出现,哪里知道通过DELPHI的PROJECT的OPTION中设好主窗口运行程序第一显示登录窗;输完用户名和密码后,主窗口不能出现,本人也试过是登录窗口的代码设过调用主窗口的代码式,但都是不行,各位楼主有什么高见,请分享你们的经验,我只是初学姐?

Answer 1

工程单元中：
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain); //frmMain是主窗体
Application.Run;主窗体
procedure TfrmMain.FormCreate(Sender: TObject);
begin
//
  frmLogin := TfrmLogin.Create(Self);  try
    if frmLogin.ShowModal = mrCancel then // frmLogin为登录窗口
    begin
      Application.Terminate;
    end;
  finally
    FreeAndNil(frmLogin);
  end;end;登录窗口中
procedure TfrmLogin.btnCancelClick(Sender: TObject); //btnCancel为登录窗口中的取消按钮
begin
  ModalResult := mrCancel;
end;procedure TfrmLogin.btnLoginClick(Sender: TObject);//btnCancel为登录窗口中的登录按钮
begin
//加入相应的登录验证代码
  ModalResult := mrOK;   
end;