F foxgirl Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-05 #1 在屏幕上的位置，不管当前屏幕上是桌面还是应用程序窗口，都能响应事件?
J JamesBond_L Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-05 #2 WinAPI的GetCursorPos可以取得鼠标的位置： ... var pos : POINT; begin GetCursorPos(pos); end;
大 大富翁WW Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-05 #3 procedure TForm1.Timer1Timer(Sender: TObject);//用个Timer控件来捕 var CursorPt: TPoint; begin GetCursorPos(CursorPt); if CursorPt.X = ??? and CursorPt.Y = ??? then ...... end;
procedure TForm1.Timer1Timer(Sender: TObject);//用个Timer控件来捕 var CursorPt: TPoint; begin GetCursorPos(CursorPt); if CursorPt.X = ??? and CursorPt.Y = ??? then ...... end;
F foxgirl Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-06 #4 谢楼上两位朋友，我想把鼠标移到屏幕最底一行: if CursorPt.Y = screen.height then ...... 可运行时把鼠标移到屏幕最底一行时，却并不能响应事件，不知要怎么样才行?
飘 飘_风 Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-06 #5 屏幕最底一行鼠标很难到，可以让screen.height－n触发
大 大富翁WW Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-06 #6 To foxgirl: 你那样精确到一个点, 当然难触发了, 可写成: if CursorPt.Y > (screen.height - 10) then 并且Timer的时间间隔调小一些, 如100
