没有关于mouse的事件怎办呢？(100分)

小

小争

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-20

• #1

我所用的控件没有mousedown,mouseup,movesemove,等等事件，
所以我单击时怎么才能知道mouse的坐标。知道了坐标才能求
二点间的距离。我的控件在ide中是最前端的没法send to back

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-21

• #2

var
pt :TPoint;

begin
...
GetCursorPos(pt);
....
end;

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-21

• #3

Mouse.CursorPos.x
Mouse.CursorPos.y
Mouse.CursorPos是TPoint类型

 

小

小争

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-21

• #4

唉，分怎么总是让Pipi.得