将启动窗体设置为登陆窗体,登陆成功后再create主窗体

解决方案 »

  1.   

    在工程文件里写
      Application.Initialize;
      Form_Login:=TForm_Login.Create(Application);//登陆窗口。注:登录窗口为手动创建的
      with Form_Login do
      begin
        ShowModal;
        if not Allowlogin then
        begin
        Application.Terminate;
          Exit;
        end;
      end;
      Application.CreateForm(TForm_Main, Form_Main);//创建主form