随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//声明:
GetCursorPos(
  var lpPoint: TPoint {POINT 结构指针, 接收鼠标指针的屏幕坐标}
): BOOL;

//举例: var pt: TPoint; begin GetCursorPos(pt); ShowMessage(Format('ScreenX: %d; ScreenY: %d', [pt.X, pt.Y])); end;
posted on 2008-02-07 15:40  万一  阅读(...)  评论(...编辑  收藏