如何屏蔽窗体的默认事件？

[wafeijian]

如何屏蔽窗体的默认事件？如下：
procedure Thhtx.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageBox(handle,'确实要退出杭华通讯录管理系统吗?(Y/N)','提示信息',
MB_YESNO+MB_ICONQUESTION)=ID_NO then

//不执行默认事件,这里用什么使窗体不调用其Close事件？

end;

[bigysw]

在 then 后添加代码：
Thhtx.OnClose:= Nil
else
Thhtx.OnClose:= FormClose;
搞定没有？

[Triumph]

应该是 If MessageBox(... ...)=IDYes Then CanCLose:=False;

[Triumph]

错了错了，上面应该是 IDNo

[wafeijian]

谢谢Triumph(无为)！