怎样获得鼠标在当前屏幕的位置？(100分)

S

shuo2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #1

怎样获得鼠标在当前屏幕的位置？注意是屏幕不是窗口！

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #2

在Delphi中：

Mouse.CursorPos就是鼠标在当前屏幕的位置.(TPoint数据类型)

 

S

shuo2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #3

怎样转换成integer!比如说left,top?

 

S

shuo2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #4

多谢！

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #5

API
GetCursorPos
可以得到鼠标位置

 

L

lodgue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #6

var
CurPoint:TPoint;
Left,Top:integer;
begin
GetCursorPos(CurPoint);
Left:=CurPoint.x;
Top:=CurPoint.y;
end;

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #7

连TPoint换成整型都...
这里成了什么地方？

 

L

liuchuanbo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-03

• #8

lodgue 的方法是对的。可以试一下：

procedure TForm1.Timer1Timer(Sender: TObject);
var
CurPoint:TPoint;
Left,Top:integer;
begin
GetCursorPos(CurPoint);
form1.caption:='('+inttostr(CurPoint.x)
+','+inttostr(CurPoint.y)+')';
end;

 

S

shuo2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-04

• #9

多人接受答案了。