如何获得鼠标在画布上的位置？(50分)

问

问题猫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #1

如何获得鼠标在Image控件上的位置？

 

D

D.Q.C

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #2

不是有mouse时间跟踪吗？
点击有down时间，移动有move事件，你看看就知道了

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #3

在Image控件的OnMouseMove中监测即可！
Var
MyPoint : TPoint;
Begin
MyPoint.X:=X;
MyPoint.Y:=Y;
StatusBar.SimpleText := 'X:'+IntToStr(MyPoint.X)+''+'Y:'+IntToStr(MyPoint.Y)+ '';

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #4

OnMouseMove

or

GetCursorPos

 

问

问题猫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #5

[][8D][^]多谢！