1.取消新窗体的systemmenu，目的是去掉窗体的关闭按钮X
2.在窗体加上新按钮，点击事件为
close;
3.在窗体的onclose实践中添加如下代码
action:=canone;//这句一定要放在messagedlg前面
messagedlg(xxxxxxx);
http://blog.csdn.net/sunstone/archive/2011/01/29/6169286.aspx