屏蔽掉用户单击右上角的关闭按钮的方法.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 7 行

屏蔽掉用户单击右上角的关闭按钮的方法
在本单击的private部分中声明如下:
procedure WMSysCommane(var Message:TMessage);message WM_SYSCOMMAND;
它的实现部分代码为:
//如果用户按了右上角的关闭窗体的按钮,则认为按了'取消'按钮
if messageWParam=SC_CLOSE then bitbtn2.onclick(self)//bitbtn2是取消按钮的名称
else inherited;