getclosemessage(100分)

Procedure TMainForm.GetCloseMessage(Var mess:TMessage);<br>Begin<br>if mess.WParam = SC_CLOSE then<br>&nbsp; begin<br>&nbsp; &nbsp; if Application.MessageBox(Msg_Close,Pchar(ss),MB_OKCANCEL) = 1 then<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; Closess;//一个过程<br>&nbsp; &nbsp; &nbsp; end;<br>&nbsp; end<br>else<br>&nbsp; begin<br>&nbsp; &nbsp; //<br>&nbsp; end;<br>End;<br>我只想处理着一个信息，可是其它的都不处理了。

大哥,要加上这个东东.<br>&nbsp;inherited;

else<br>&nbsp; begin<br>&nbsp; &nbsp; inherited;//??<br>&nbsp; end;<br>

你可以Close事件中写代码?????

接受答案了.