有个很简单的办法，不用代码，你只要把登录窗口的BorderStyle属性设为bsNone就可以了，这样，登录窗口的‘关闭’、‘最小化’和‘最大化’就没有了。
同时，你要在登录窗口上设两个button，一个为验证，一个为退出。在退出按键的点击事件中这样写：
procedure TForm2.button2click(sender: TObject);
begin
form1.close;
form2.close;//不要只写form2.close，那样主窗体还会出现。
end;
你事件的位置加错了吧，在关闭窗口的时候怎么会触发打开另一窗口的事件呢 你是不是在Form1的onclose部分写了showmodal，另外判断验证不成功加个if条件就可以了啊
if 判断成功 then
begin
Form2.showmodal；
end else
begin
showmessage(验证失败，请重新输入...);
end；
Application.Terminate也不行?
内容全部来源于网络收集，如有侵权，请联系网站删除！