本文整理自网络，侵删。
第一步:定义全局变量用于状态改变时的对比
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; 相关阅读 >>
Delphi 将 4 个 byte 合成 1 个 integer 的五种方法 - 回复 "三足乌" 的问题
更多相关阅读请进入《Delphi》频道 >>
