X xuegaoyili Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-08 #2 用一个全局变量在form中的onmousemove中取出x,y值不就行了。
W wcwcw Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-08 #3 OnMouseMove 里面有X,Y， 你也可以转化为屏幕上的坐标
N Nstar Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-08 #4 var p:TPoint; GetCursorPos(p); //使用时 p.x ,p.y
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-08 #5 var p:TPoint; p:=ScreenToClient(Mouse.CursorPos)
B bowl Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-08 #6 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin edit1.text:=format('(%3d,%3d)',[x,y]); end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin edit1.text:=format('(%3d,%3d)',[x,y]); end;
