求助：怎样实现在登陆后释放login Form 并进入主窗口？？？？？？？？？？？？

Question

告诉你一个我见过的方法：主窗体中放一个TIMER 控件，在TIMER 控件的事件里面创建 login Form ，如果登陆成功，就释放掉，同时把TIMER 控件也可以释放掉了。

Answer 1

Application.Initialize;  Application.CreateForm(TfmLogin,fmLogin); //登陆窗体
  fmLogin.ShowModal;
  if fmLogin.ModalResult = mrok then       //记不清楚是不是 MROK了
                                            //请在登陆窗口的确定按扭的ONCLICK事件 
 begin                                      //中加入 fmLogin.ModalResult:=mrok  
    fmLogin.Hide;
    fmLogin.Free;
  end
  else
    Application.Terminate;  Application.CreateForm(TfmMainForm,fmMainForm);  //主窗体
  Application.Run;
end.

Answer 2

to coolsnake_pp:但我有一数据单元，怎么办？