请教各位,一个Form关闭的问题!

Question

我在登陆的Form校验用户名和密码后,关闭当前的Form页面;可是出现如下的错误----Project Dudget_Assay.exe raised exception class EStackOverflow with message 'Stack overflow.'.Process stopped.Use Step or Run to continue.
请教各位如何解决?

Answer 1

看看你的close事件里写了些什么你是用.show 还是.showmodal调用这个窗体的?

Answer 2

登陆的Form用dmActiveForm模式，close的事件
action:=cafree;,试试看。

Answer 3

to My_first(小@_@小) 
1.看看你的close事件里写了些什么
----close事件里只有登录页面.close;
2.你是用.show 还是.showmodal调用这个窗体的?
----登录页面是main form,程序一启动，自动show出该页面；主操作页面是用showmodal吊用的。
to lightninglu(竹联)
1.登陆的Form用dmActiveForm模式
----我的登录页面是dmActiveForm模式
2.close的事件,action:=cafree;
----我试试

Answer 4

你用step调试，看是在哪个语句出错

Answer 5

to wudid007(小小鸟)
是啊，我是用step by step调试的，没有任何错误阿！

Answer 6

to lightninglu(竹联)
在form.OnClose的事件中，action:=caFree，好像页面没有被关闭，但是此语句被正常的执行了！

Answer 7

附：
procedure TSystem_LoginForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;
我是这样调用的:
               action := caFree;
               System_LoginForm.FormClose(System_LoginForm,action);
有问题吗？