1、delphi 7 完美解决登录窗口方法Form1 为主体， Form2 为登录窗口1、 在工程文件的源代码中，最后一行 Application.Run; 之前加入Form2.ShowModal;Form2.Free;这两句号，意思是让，Form2 登录窗口先出现。如下图：Application.CreateForm(TForm5, Form5);Form2.ShowModal;Form2.Free;Application.Run;2、 在 Form2 登录窗口取消或退出按键使用这个代码“ application.Terminate ; ” 如下图：procedure Tloginform.Bi
2、tBtn2Click(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;”为何不能吗？真的不能，我们编写时，这样写好像没有问题，但真正运行时发现程序运行没有问题，问题在于，我们在关闭主窗体或整个程序时，软件表面上是退出了，但在任务管理器里，我们还是可以看到程序还在运行没有真正的退出。
