制作MDI的登陆窗口

4817505

新手提问

我有一个LognFrm窗体（正常窗体）。。。还有一个MainFrm窗体（MDI主窗体）

我在运行时，先出现LognFrm窗体，验证密码后才能出现MainFrm

代码是：
LognFrm中的确定按钮（先没验证密码，直接点击确定进入）

Self.Hied;
Application.CreateFrom(TMainFrm,MainFrm);
MainFrm.show;

进入后都是正常的，就是在当我关闭MainFrm时，为什么不能正常的退出整个程序，在进程里还有。。没有释放内存，我用好多，Free等关闭的命令，都是这样，而且还报错。。是不是我没有配合使用，所以出错了，请大家帮我看看吧。。。谢谢啦。

stevevai

你的主窗体不再是mainform了，因为你把Application.CreateFrom(TMainFrm,MainFrm);
写到了loginform的后面，这样，loginForm就作为主窗体了，所以，你关闭的是mainform不是主窗体loginform

4817505

那我应该怎么写啊？

我的登陆改成了。。。
               Application.CreateForm(TMainFrm,MainFrm);
               Application.Run;
               Self.Hide;

stevevai

你将Application.CreateForm(TLoginFrm,LoginFrm);放到Application.CreateForm(TMainFrm,MainFrm);
的下面。在application.run 之前加上如下代码：
if LoginFrm.ShowModal = mrOK then
//通过
else Application.Terminate;

4817505

不行啊，还是有问题。。。

我把代码弄出来。。。

在Auto中，只有LognFrm其他的都是动态建立的。。

在LognFrm的建立事件中，我有这么一句：
LognFrm.ShowModal;

然后在点击进入的按钮中：
我写的是
Application.CreateForm(TMainFrm,MainFrm);
Application.Run;
Self.Hide;

其他的不变
然后可以进入，没有问题，就是在关闭时就报错了。。。

还有一个问题，在LognFrm 上有一个取消按钮，里面写的Application.Terminate;
当登陆窗体出现后， 不点击进入，点击取消也报错，同样的报错信息。。。

stevevai我不知道我要怎么改啊，帮我看看啊，谢谢了，头都大了。。。

4817505

谢谢楼上的了昂，问题不在登陆了， 我做对了，因为我换在别的工程就好用，可能是别的代码的问题。。。非常感谢楼上的，谢谢昂。。。

4817505

好久没有来了，我的问题是少了一个引用的头文件，所以出问题了，总是会报一些莫名其妙的问题
是引用动态库时，少了一句Sharemem
呵呵。。。