****登录对话框的制作问题?****

Question

即如何在主窗体生成后出现一登录对话框,必须登录后才能操作主窗体的对话框?

Answer 1

if  TFrmlogin.Create(nil).ShowModal=2 then exit; // 2表示取消，1表确定 
   Application.CreateForm(TFrmmain, Frmmain);
   Application.Run;

Answer 2

可以在主窗体的ONACTIVE事件中判断，Frmlogin.ShowModal

Answer 3

我是这样的.  Application.Createform(TMainform,mainform);
             application.createform(Tloginform,loginform);
             loginform.showmodal;   //在此登录,登录不成功则退出,成功则显示主窗体.
              //登录成功的话,还有loginform.free;  mainform.showmodal;
             loginform.free;
             application.run;
我在主窗体有关闭窗体的按钮.代码为:application.terminate;
可是有问题,关闭不了.原因就在登录成功的那两句代码.各位能不能帮我看看该怎么改,我想关闭登录对话框后再显示主窗体.而不想让登录对话框只是隐藏.

Answer 4

在mainform里的Create里写
  loginform.showmodal; 这样很简单。