Delphi中关于显示确认框的方法

在Web开发中，经常用到Confirm框，比如提交页面的时候，采用confirm语句可以让你选择是否确认进行提交等等。但是在Delphi中却不是很清楚应该怎么样进行开发。经过摸索已经翻阅帮助文档，终于找到了使用方法，如下所示。

比如我这里要关闭一个程序，有一个关闭的按钮，当点击这个按钮就出发了关闭窗口的事件，不过实现还是要提示一下是否要关闭页面。如果点是则关闭，如果点否则不关闭，代码如下所示

  if MessageBox(Handle, '确实要关闭窗口吗？', '关闭窗口',
    MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
    Application.Terminate;

在这里，MessageBox就是一个Confirm框，'确实要关闭窗口吗？',是显示出来的内容，而后面的'关闭窗口'则是这个Confirm框的Title标题。当点击是的话则触发Application.Terminate;语句，关闭了程序，如果点否则没有任何反应。