设计了LoginForm和MainForm。
LoginForm启动时检测本级目录下面是否存在database.ini文件,如果有,从里面读取并校验用户信息,如果信息正确,LoginForm自动关闭并显示MainForm。如果没有,则LoginForm显示,要求输入用户信息,输入的用户信息保存至database.ini文件,并重新校验,如果正确,LoginForm关闭,MainForm显示。现在的问题:
在OnCreate事件中的判断
if check=true then
beginMainForm.show;
LoginForm.hide;end 
else
loginform.show调试提示错误,因为在LoginForm还在Create的时候就要Hide或者Close好像都不可以,上述过程放在LoginForm的OnShow里面也不行。有什么方法可以完成目的?谢谢!

解决方案 »

  1.   

    写到 Project 下面去!
      

  2.   

    谢过先!能否具体一些?delphi我没用多久,没法理解你给的提示。
      

  3.   

    你把主窗体设为MAINFORM,在MAINFORM的ONSHOW事件里写LOGINFORM.SHOWMODAL
    然后你执行你的LOGINFORM里的事件,如果登陆失败
    application.Terminate;
      

  4.   

    在项目的 Project 单元下面写Login判断就行了:)
    选显示一个Login窗体然后做你想做的事成功就关闭Login,进入主窗体;
    否则Close就行了
    :)