不必从消息中得到鼠标位置阿,可以用GetCursorPos函数直接得到,如下:
var tmp:TPoint; //鼠标坐标
.....
  GetCursorPos(tmp);
  ShowMessage('横坐标为:'+IntToStr(tmp.x)+' 纵坐标为:'+IntToStr(tmp.y));
......