如何设计登录窗口？
我用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.

前辈们帮忙解决一下吧。明天就要上交程序了，谢谢了！！

[解决办法]
不需要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;