关于窗体的问题！谢谢！！！

Question

项目文件：
  Application.Initialize;
  LoginForm := TLoginForm.Create(Application);
  LoginForm.ShowModal;
  if LoginForm.LoginOK then
  begin
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
  end;

Answer 1

哇！代码都给你了，还不清楚？？？
TLoginForm,是登录窗体．有一个全局变量LoginOK，如果登录成功就为True,
以上代码是项目文件中的Begin部分．
先显示登录窗口，如果LoginOK返回True就运行应用程序．

Answer 2

还应该加一行:
  if LoginForm.LoginOK then
  begin
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
  LoginForm.free;
  end; 

Answer 3

如果不想在项目文件中添加代码，可以在主窗体的formshow中加入下列代码：  frmlogin:=Tfrmlogin.creat(self);
  frmlogin.showmodal;
  if frmlogin.logok=0 then
    frmmain.close;

Answer 4

最好让LoginForm.free;前有一个1秒钟左右的延时，这样能让LoginForm的停留时间长一些，方法是在LoginForm上加一时钟
  

Answer 5

http://www.csdn.net/Expert/topic/391/391971.shtm

Answer 6

延时不需要在LoginForm上加一时钟,只要用
sleep(1000);
就可(仅限于D6)