Question

delphi 为什么同一个程序,一个用Exit没有跳出当前form,而另一个则跳出了当前form

我在原有的程序中修改，在运行修改后的程序时Exit会关掉子form，而显示主form。但是原来的程序泽不会。还是显示子form，我看了好几遍那一部分程序一样。请问到底是怎么回事呢？在主form中我用的是showmodel来显示子form的。谢谢各位！！
那个Exit是子form中的。当跳出子form后，运行到Exit时则会关掉子form了。我想要继续停留在子form界面中，而不要回到主form中。。谢谢了~~

Answer 1

Exit是退出当前函数或过程，如果当前函数或过程退出后Form会执行到退出代码，Form当然就会关闭。

追问

我的这个Exit是放在enter按键事件中的，可是我调试的时候的确是发现运行到Exit时就会直接跳到这个函数的End，然后就跳到主form中的函数中了。我说明一下，我是在主form中的一个按键事件下用showmodel来显示子form的。

追答

你已经解决了。

Answer 2

Exit的作用是退出当前函数/过程，不是什么跳出form。所以你应该看下你的程序，是不是调用Exit的地方不正确。

要想停留在子form中，你可以在主form中调用ShowModal，然后在子form中不用调用Close、ModalResult之类就可以了。

追问

我的这个Exit是放在enter按键事件中的，可是我调试的时候的确是发现运行到Exit时就会直接跳到这个函数的End，然后就跳到主form中的函数中了。我说明一下，我是在主form中的一个按键事件下用showmodel来显示子form的。

追答

“运行到Exit时就会直接跳到这个函数的End”这是应该的。
调用ShowModal之后，主form的执行就会停下来，除非该函数返回了，与什么按键事件是没关系的。所以你的问题是ShowModal为什么会立刻返回？找找你的子form里面写了什么不合适的代码。

追问

在主form中有一个free。可是那个原来的老程序不会出现这个情况，当运行到Exit,不会跳到Free。函数顺序是这样的：showmodel；free;我就奇怪了，子form中也有其他Exit，没出现这个情况，请问你认为是什么原因造成的呢？也没有其他什么异常代码啊

追答

都说跟主form没关系了。你应该检查子form的代码。

示例：

主form里面

procedure TMainForm.Button1Click(Sender: TObject);
begin
  with TSubForm.Create(nil) do
    try
      // 设置子form的代码
      ShowModal;
      // 子form的善后代码
    finally
      Free;
    end;
end;

这样的子form会一直模态显示的。

你可以重新建立2个form来做测试。

Answer 3

提供一点小提示：

在Delphi语言里，Exit 通常是用来是退出程序，而如果是子窗体的退出，通常用的是Close。