1 111111 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-09 #1 我设计一个form,有两个edit，用以显示x,y坐标，当鼠标离开form范围时，如何得到鼠标 x,y坐标。
特 特尔斐 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-09 #2 在一个计时器中使用GetCursorpos可以得到，更好一点的话，就是想办法不使用计时器
L LeeChange Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-09 #3 procedure TForm1.Button1Click(Sender: TObject); var p: TPoint; begin GetCursorPos(p); //p.x p.y就是坐标 end;
procedure TForm1.Button1Click(Sender: TObject); var p: TPoint; begin GetCursorPos(p); //p.x p.y就是坐标 end;
X xlite Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-09 #4 可以直接用mouse.x和y取的嘛. 如果程序失去焦点,最简单的办法是放个定时器.
特 特尔斐 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-09 #5 procedure GetMousePos(var x,y:integer); var pt: TPoint; begin GetCursorPos(pt); x := Pt.x; y := Pt.y; end; 在一个计时器中或需要的时候调用。
procedure GetMousePos(var x,y:integer); var pt: TPoint; begin GetCursorPos(pt); x := Pt.x; y := Pt.y; end; 在一个计时器中或需要的时候调用。
X xlite Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-09 #6 Sorry,shud be: sreen.cursor.x sreen.cursor.y
