delphi中如何启动主窗口了 然后在启动第二个窗口 然后关闭第一个窗口

Question

在delphi中启动了一个登陆窗口  点击登陆窗口的登陆 启动第二个窗口 同时关闭第一个窗口的方法如何做到呢？？？
www.uozee.com

Answer 1

启动在关闭？？？
在第二个窗口的OnShow事件里 直接将第一个给关闭掉

Answer 2

把登录窗口的事例传给新窗口，然后新窗口去关闭他
或者登录窗口创建新窗口，比如创建新窗口
打开新窗口
Self.Close;

Answer 3

form1,form2窗体
form1中的buton1代码
form1.hide;
form2.show;
form2中的buton2代码
form1.close;
form2.close;

Answer 4

  Application.Initialize;
  Application.Title := 'XXXXX';  LoginForm:=TLoginForm.Create(Application);//登陆窗口
  if LoginForm.ShowModal=mrCancel then exit;  Application.CreateForm(TMainForm, MainForm);//主窗口
  Application.ShowMainForm :=false;
  Application.Run;

Answer 5

续上：
在登录窗口的 Close事件中加入代码：
  Action:=caFree;

Answer 6

最好方法是登录窗口一定不要用主窗体
修改工程文件  Application.Initialize;
  Application.ShowMainForm := false;
  Application.CreateForm(TForm1, Form1);//主窗体
  Application.CreateForm(TForm2, Form2);//登录窗体
  Form2.show;//Form2中登录成功后Form1.show;Form2.close;
  Application.Run;