如何取得当前鼠标在屏幕中的位置？

[getdelphi]

如何取得当前鼠标在屏幕中的位置？

[大地精灵]

var
x:integer;
begin
x := GetCursorPos(point).x;
end;

[FrameSniper]

直接用全局变量Mouse的属性CursorPos！

[xudong51]

楼上的方法最方便

[dyf2001]

呵呵，是呀
Mouse.CursorPos.X
Mouse.CursorPos.Y

[tohail]

在 OnMouseMove事件中
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
MyPoint:Tpoint;
begin
GetCursorPos(MyPoint); //获取屏幕坐标
X:=MyPoint.X; //重定位X坐标值
Y:=MyPoint.Y; //重定位Y坐标值
Label1.Caption:='X: '+IntToStr(X)+' Y: '+ IntToStr(Y); //将坐标显示出来
end;

[tjff2000]

getcursorpos();

[sixgj]

需要用到API函数 getcursorpos();

[getdelphi]

能不能给个例子？

[tjff2000]

var point:Tpoint;
begin
GetCursorPos(point);
Edit1.Text:=inttostr(point.x);
end;