请问如何获得鼠标的坐标位置？(0分)

N

nakoka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #1

谢了！

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #2

getcurpos

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #3

getCursorPos

 

N

nakoka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-22

• #4

这个函数的具体用法啥样？

 

G

gzmeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-22

• #5

procedure TMainForm.ApplicationEventsMessage(var Msg: tagMSG;
var Handled: Boolean);
begin
label1.Caption:=('X:=' + IntToStr(Msg.pt.x) + '| Y:=' + IntToStr(Msg.pt.y));
end;

 

H

HostingLian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-22

• #6

如果你在程序的客户区内想获得鼠标的位置，上面两位的方法是可行的
如果你想获得整个操作系统工作区的图标，需要建立一个钩子程序。
需要的话，说一声。

 

N

nakoka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-23

• #7

谢了！需要！

 

C

crystal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-04

• #8

加一个Timer，OnTimer里面写

var curPos : TPoint;
begin
GetCursorPos(curPos);
Label1.Caption := 'X:' + IntToStr(curPos.x) + ' Y:' + IntToStr(curPos.y);
end;