怎样才能获得当前鼠标的位置坐标？(100分)

D

dioalucard

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-21

• #1

怎样才能获得当前鼠标的位置坐标？

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-21

• #2

Mouse.CursorPos

 

M

misxjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-21

• #3

再鼠标事件中自动获得当前位置；其他同上！

 

A

atface

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-21

• #4

控件的mousedown 或 mouseup 中有鼠标位置参数！

 

C

Cardinal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-21

• #5

Mouse.CursorPos.x<br>Mouse.CursorPos.y

 

Z

ztaif

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-21

• #6

Mouse.CursorPos.x<br>Mouse.CursorPos.y

 

木

木子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-21

• #7

WinAPI<br><br>GetCursorPos<br><br>当前鼠标的位置，是从屏幕的左上方(0, 0)开始的坐标值

 

L

luky_99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-21

• #8

var p:tpoint;<br>begin<br>&nbsp; inherited;<br>&nbsp; if button=mbRight then<br>&nbsp; &nbsp; &nbsp;begin<br>&nbsp; &nbsp; &nbsp;getcursorpos(p); //?±o?&amp;laquo;e&amp;ordf;&amp;ordm;&amp;sup1;&amp;laquo;?&amp;ordf;&amp;ordm;&amp;brvbar;ì&amp;cedil;m&amp;ordf;&amp;ordm;API¨&amp;ccedil;?<br>&nbsp; &nbsp; &nbsp;Po.Popup(P.X, P.Y);<br>&nbsp; &nbsp; &nbsp;end;<br>end;

 

C

Carson_zzd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-21

• #9

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,<br>&nbsp; Y: Integer);<br>var P :TPoint ;<br>begin<br>&nbsp; getcursorpos(p) ;<br>&nbsp; form1.Caption :=inttostr(p.x) +' &nbsp;， ' + inttostr(p.y) ;<br>end;

 

D

dioalucard

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-24

• #10

多人接受答案了。