1.定义一个Procedure MyMessage (var Msg: TMsg; var Handled: Boolean);
  在这里写你的代码,记录Message的信息
2.在FormCreate或者你觉得该付值的时候定义一下:
  Application.onmessage:=MyMessage;
3.不跟踪的时候再给他还原这样记录之后如果你用文本看,你可以看到一大堆1,2,3,4,5,6,7....呵呵