获得光标绝对坐标？

Question

你可以用一个timer 间隔50毫秒
procedure TForm1.tmr1Timer(Sender: TObject);
var
  pt:TPoint;
begin
  GetCursorPos(pt);
  Caption:= IntToStr(pt.X)+ ' ' + IntToStr(pt.Y);
end; 

Answer 1

看不懂，cursor 不就是光标么，光标是什么，就是鼠标的箭头
GetCursorPos 获取的就是光标处于屏幕内的坐标，单位像素

Answer 2

GetTextExtentPoint32取得文字的宽和长，line.x*size.cx 就是相对坐标的横坐标，在转换一下得到绝对坐标？（随便说说……未经验证）

Answer 3

在edit或memo的onmouseup事件中GetCursorPos(pt);就行了

Answer 4

聪明！！不过如果用户是用键盘移动的话呢？
应该加个OnKeyUp吧？

Answer 5

说个思路，拥有输入光标的窗口一般有焦点的，这个是可以用API得到句柄的。而某个焦点窗口的焦点控件也是可以通过API获取的，而获得了这个控件的相对位置后再加上父窗口的位置就可以知道绝对位置了。