一个入门问题大家不要笑我，窗口怎么切换？

Question

刚学delphi请各位多多关照，我做了一个工程，主窗口为main,一个登录窗为login。我想先运行登录窗，再运行main,请问怎么做？我把login设为启动窗体，登录按钮的click事件如下：
procedure Tlogin.Button1Click(Sender: TObject);
begin
   login.close;
   main.show;
end;但一点之后整个应用程序就关了怎么解决？

Answer 1

把MAIN设为启动窗体，在MAIN的ON SHOW事件里写
LOGIN.SHOWMODAL；
然后procedure Tlogin.Button1Click(Sender: TObject);
begin
   login.close;
end;
-----------------------------------------------------
光看你问题我差点想说ALT+TAB哈哈^o^

Answer 2

吧login.close改成login.hide不就完了吗?

Answer 3

你点按钮的时候代码执行顺序错了。应该是
procedure Tlogin.Button1Click(Sender: TObject);
begin
  main.show;
  login.close;
end;