如何设计登录窗口？

Question

我用Delphi做了一个登录界面。想做到先出现登录界面，当账号密码都输入正确，点登录后，登录界面隐藏，主界面出现。
为什么我用frm_main.show后，主界面却不出现呢？一点登录后就什么都不见了。这是我的代码：
这是登录按键的：
procedure TLogin.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text='user')and(edit2.Text='123') then
  begin
    log2:=1;
    frm_main.Show;
    self.hide;
  end
 else
 begin
  showmessage('用户名或密码不正确，请重新输入!');
  edit1.Clear;
  edit2.Clear;
 end;
end;这是主界面onshow里的：
procedure Tfrm_main.FormShow(Sender: TObject);
begin
  begin
  Application.ShowMainForm:=False;
  application.CreateForm(TLogin,Login);
  Login.ShowModal;
  Login.Free;
  Application.ShowMainForm:=True;
  frm_main.ShowModal;
  end;
end;end.前辈们帮忙解决一下吧。明天就要上交程序了，谢谢了！！

Answer 1

不需要onshow事件
菜单project->options->Main form: 选择Login窗体
其它窗体都在是auto-create forms里
procedure TLogin.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text='user')and(edit2.Text='123') then
  begin
  log2:=1;
  hide;
  frm_main.Show;
  end
 else
 begin
  showmessage('用户名或密码不正确，请重新输入!');
  edit1.Clear;
  edit2.Clear;
 end;
end;