delphi-7-完美解决登录窗口方法

delphi7完美解决登录窗口方法Form1为主体，Form2为登录窗口1、在工程文件的源代码中，最后一行Application.Run;之前加入Form2.ShowModal;Form2.Free;这两句号，意思是让，Form2登录窗口先出现。如下图：Application.CreateForm(TForm5,Form5);Form2.ShowModal;Form2.Free;Application.Run;2、在Form2登录窗口取消或退出按键使用这个代码“application.Terminate;”如下图：procedureTloginform.BitBtn2Click(Sender:TObject);beginapplication.Terminate;end;3、Form2登录窗口验证通过后的，登录按键的最后一行代码为：“close();”就可以关闭Form2登录窗口，出现Form1主窗体了。但由于使用了关闭Form2登录窗口，出现Form1主窗体的设计流程，所以Form2登录窗口，右上角的“X”不能出现，如果出现了，也就是说，不输入密码也可以关闭Form2登录窗口，出现Form1主窗体。所以就有下面的处理了。4、关闭Form2窗口右上角的“X”，去掉窗体的关闭键可以将Form的BorderIcons属性的biSystemMenu的值改成False我们为何要为样做，用“show”字，的“Form2.Hide;Form1.Show;”为何不能吗？？真的不能，我们编写时，这样写好像没有问题，但真正运行时发现程序运行没有问题，问题在于，我们在关闭主窗体或整个程序时，软件表面上是退出了，但在任务管理器里，我们还是可以看到程序还在运行没有真正的退出。