怎样获得鼠标经过的所有坐标值(x,y)．

Question

怎样获得鼠标经过的所有坐标值(x,y)．

Answer 1

FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
beginend;

Answer 2

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label2.Caption:=Label1.Caption;
  Label1.Caption:=Format('(%d,%d)',[X,Y]);
end;
理论上可以这样得到差距较大的两个点的坐标，但实际上跟鼠标的移动，鼠标的加速度有关，
我用的是罗技MX500，加速度调到最高，但有时大范围的快速移动鼠标，也不能得到差距较大的两个坐标。

Answer 3

这种做法极不稳定，根本不可取。windows会丢失消息的。