在主程序中先显示登陆窗口。成功再show出主窗口。怎么主窗体一出现程序也就停止了呢。我是这样写的。请问为什么会这样呢。谢谢
var
SF:TStartUpForm;
LF:TLoginForm;
T:TForm2;
begin
  Application.Initialize;
  SF:=TStartUpForm.Create(Application);
  SF.Show;
  SF.Update;
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TCommon, Common);
  LF := TLoginForm.Create(nil);
  SF.Hide;
  SF.Free;
  LF.ShowModal;
  if(LF.ModalResult = mrOK) then
  begin
    T := TForm2.Create(nil);
    T.Show;
  end;
  Application.Run;

解决方案 »

  1.   

    你哪个是主窗体?T ?
    如果是T.Show; 
    改为T.ShowModal
    工程文件怎么写的乱七八糟的。登陆窗体在主窗体的onshow事件上面showmodal方便点
      

  2.   


    begin
      Application.Initialize;
      Application.CreateForm(TLoginForm, LoginForm);
      LoginForm.ShowModal;
    {isLogin是全局变量 ,确认在登录窗体里用户已经成功登录,否则退出程序.}
      if islogin then  
      begin
        Application.CreateForm(TForm1, Form1);
        Application.Run;
      end
      else  Application.Terminate;
    end.