检测鼠标指针的改变(全局) Delphi

最新推荐文章于 2023-04-11 18:59:28 发布

最新推荐文章于 2023-04-11 18:59:28 发布 · 207 阅读

本文介绍了一种使用Delphi编程语言监测鼠标位置变化的方法。通过定义全局变量来记录鼠标图标的变化，并利用Timer组件定期检查鼠标位置，一旦发现位置变化则记录具体坐标并发出提示。

第一步:定义全局变量用于状态改变时的对比
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;