第一步:定义全局变量用于状态改变时的对比 var   Form1: TForm1;   OldCI:HICON; 第二步:添加Timer组件,Interval设置随意一般50就可以了. 增加Memo组件用于记录状态改变 procedure TForm1.Timer1Timer(Sender: TObject); var   CI: TCursorInfo; begin   CI.cbSize := SizeOf(CI);   GetCursorInfo(CI);   if OldCI<>CI.hCursor then     begin       OldCI:=CI.hCursor;       Beep;       Memo1.Lines.Add('在坐标 X:'+inttostr(CI.ptScreenPos.X)+' Y:'+inttostr(CI.ptScreenPos.X)+' 发生改变');     end;  end;