在DEBUG时,运行正常,在正常运行时,出错,为什么

Question

procedure Tfrmlogin.FormClose(Sender: TObject; var Action: TCloseAction);begin
  if frm_blnlogin then
  else
  begin
    application.Terminate;//在DEBUG时,没有出现问题,在正常运行时,这句代码就不能运行 
  end;  action:=cafree;
end;
我用的是D7+SP1.

Answer 1

if frm_blnlogin then
begin
end else begin
  application.Terminate;
  exit;
end;action := caFree;

Answer 2

这个判断是不是应该加在FormCloseQuery事件处理，而且不能使用application.Terminateprocedure Tmainform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if not frm_blnlogin then  canclose := false;
  action:=cafree;
end;

Answer 3

close;不就行了吗,干吗要那么麻烦