RSS订阅 | 匿名投稿
您的位置:网站首页 > 鼠标 > 正文

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

作者:admin 来源: 日期:2013/10/24 22:48:44 人气: 标签:

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

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: