一个登陆窗体的小问题! ( 积分: 11 )

写了一个登陆的窗体
在工程文件里创建如下
begin
Application.Initialize;
Form4:=TForm4.Create(application);
Form4.Show;
Form4.Update;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TDM, DM);
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm5, Form5);
Form4.Free;

if form5.ShowModal=mrok then
beep
else
begin
application.Terminate;
exit;
end;
Application.Run;

end.

在form5 的登陆和取消按钮的代码如下
登陆事件
form5.ModalResult:=mrok;

取消事件
form5.ModalResult:=mrcancel

如果是登陆成功就没问题，但如果不登陆按取消就会报错这是为何

等待中...

上面的代码没有问题，楼主是不是你的form5所在单元释放有问题

我试过了没问题呀

to hanpengshan_00
我在form5的close事件里没有做释放的动作呀!

多人接受答案了。