设计了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里面也不行。有什么方法可以完成目的?谢谢!
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里面也不行。有什么方法可以完成目的?谢谢!
然后你执行你的LOGINFORM里的事件,如果登陆失败
application.Terminate;
选显示一个Login窗体然后做你想做的事成功就关闭Login,进入主窗体;
否则Close就行了
:)