登录窗口

Question

我做了几个登录窗口，都不行，登录后，主窗体显示，登录窗体却不消失，因为MAINFORM。SHOWMODAL，后关闭登录窗体，必须关主窗体后，才能关登录窗体，用MAINFORM。SHOW又不行，望各位指教。

Answer 1

将登录窗口在主窗体的FormCreate创建 并显示  如果登录成功 显示主窗体 否则 终止

Answer 2

登录窗体不要设置为主窗体！或者就用genispan的办法：
procedure MainFormOnCreate(Object: TObject);
begin
  if Login(user,userpassword) <> '登录成功' then
    PostMessage(Handle,WM_CLOSE,0,0);
end;

Answer 3

两个窗体：FrmMain,FrmLogin 
在FrmMain的OnShow事件里写：FrmLogin.showModel;这样就先显示登陆窗口了， 
关闭登陆窗口后主窗口就会显示出来，但要记录登陆是否成功，就可以在FrmLogin里声明一个全局变量，判断是否登陆成功，因为在取消登陆时关闭登陆窗口是整个工程都要关闭，而不应该再显示主窗口出来。