你可以不要把登陆界面设置为主界面呀。在主界面的FORMSHOW时,写入登陆截面SHOW,如果没有正常登陆主界面就不能载入

解决方案 »

  1.   

    不要把登陆界面作成主界面,
    把登陆界面作成子窗口,手动创建。
    program Project1;uses
      Forms,Controls,
      Unit1 in 'Unit1.pas' {Form1},
      Unit2 in 'Unit2.pas' {Form2};{$R *.res}
    var
        fm2:    tform2;begin
      Application.Initialize;
      fm2:=tform2.Create(application);
      if fm2.ShowModal=mrOk then
      begin
          Application.CreateForm(TForm1, Form1);
      end;
      Application.Run;
    end.
    其中fm2为登陆窗口,form1是主窗口
      

  2.   

    主界面不能关闭或者销毁(可以隐藏),否则应用程序就退出了。
    —————————————————————————————————
    MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
                 毁誉由人,望天上云卷云舒,聚散任风。';
    if Not Assigned(I) then
      I := TI.Create(Nil);
    I.Maxim := MaximStr;
    I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
    I.Desire := '加不加分随你';
    —————————————————————————————————
        
      

  3.   

    建议不要把登录界面作为主界面,因为主界面是不能被隐藏,如果free了,则整个application也就terminate了;
      

  4.   

    劝你还是动态创建的好,2000下,delphi的速度是老牛拉破车
      

  5.   

    主界面不能被free掉的,这样整个应用程序就退出了,我以前遇到这个问题时是把主窗口作为主界面,登录窗口动态生成,而且登录窗口是在主界面的Activate事件中生成的,而且登录窗口的formstyle是ontop的,这样的结果是在主窗口显示后弹出登录窗口,而且主窗口在登录窗口的下面显示,如果加载到主窗口的show事件中的话,则只显示登录窗口,等登录后主窗口才能显示。
      

  6.   

    use unit2;
    var form2;
    form2=Tform2.create(self);
    Tform2要加到非自動創建中去。
    form2.free;
      

  7.   

    非常感谢大家的热心帮助,问题已经解决,现在我对csdn有信心了。分数不多还请见谅。