我要让其他的窗体出先的时候,让登陆窗体消失,如何做?

解决方案 »

  1.   

    Frm_password:=TFrm_password.Create(Application);
      try
        Frm_password.ShowModal;
      finally
        Frm_password.Free;
      end;
      if (not exit) then//判断密码是否正确
      begin
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
      end;
      

  2.   

    登陆窗体用shoumodal方式,然后在登陆窗体的按钮中写ModalResult:=idOk 或ModalResult:=idcancel
      

  3.   

    在主窗体的onshow事件中添加代码:
     登录窗体.showmodal;
    在输入了正确的用户名和密码后,可以进入主窗体,这时添加代码
      登录窗体.close
    就可以了