如何获取鼠标坐标，保存到数据库里。

Question

鼠标点击paintbox上某一坐标，以这个坐标为中心，画一个正方形，继续点击画任意多个正方形后，将刚才所画的几个正方形中心坐标的X,Y坐标保存到数据库里。

Answer 1

可以放一个定时器，在timer事件里写代码，用GetCursorPos取鼠标位置，然后再处理

Answer 2

或者在paintbox的clicked事件里写代码
或者用鼠标钩子来做，呵呵

Answer 3

mouse.CursorPos.X 和 mouse.CursorPos.Y 就是当前鼠标坐标...

Answer 4

1.用GetCursorPos取鼠标位置
例子：
procedure TForm1.PaintBox1Click(Sender: TObject);
var
  a : TPoint;
begin
GetCursorPos(a);
showmessage(Format('x:%d;y:%d',[a.X,a.Y]) );
end;2.在onmouseMove中直接获得鼠标坐标信息,x,y就是坐标
至于怎么画正方形和怎么存入数据库，我想就不用我说了吧。