在Web开发中,经常用到Confirm框,比如提交页面的时候,采用confirm语句可以让你选择是否确认进行提交等等。但是在Delphi中却不是很清楚应该怎么样进行开发。经过摸索已经翻阅帮助文档,终于找到了使用方法,如下所示。
比如我这里要关闭一个程序,有一个关闭的按钮,当点击这个按钮就出发了关闭窗口的事件,不过实现还是要提示一下是否要关闭页面。如果点是则关闭,如果点否则不关闭,代码如下所示
if MessageBox(Handle, '确实要关闭窗口吗?', '关闭窗口',
MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
Application.Terminate;
在这里,MessageBox就是一个Confirm框,'确实要关闭窗口吗?',是显示出来的内容,而后面的'关闭窗口'则是这个Confirm框的Title标题。当点击是的话则触发Application.Terminate;语句,关闭了程序,如果点否则没有任何反应。