检测鼠标指针的改变(全局) Delphi
2009-09-03 01:35
316 查看
第一步:定义全局变量用于状态改变时的对比
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;
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
- c++ builder\delphi中如何改变操作数据库时的鼠标指针形状
- 检测鼠标指针的改变(使用GetCursorInfo API函数)
- MFC改变鼠标指针
- css样式改变鼠标指针形状实例
- Qt4之改变鼠标指针形状 .
- MFC改变鼠标指针(转载)
- win8切换主题(桌面图标/鼠标指针)也随着改变了的解决方法
- CSS/HTML改变鼠标指针形状方法 属性说明
- 改变鼠标指针样式
- Delphi 检测用户超过多长时间没有操作键盘或鼠标
- 改变鼠标指针形状的css样式实例
- Delphi中的压缩单元ZLib.pas中二个鲜为人知的二个“指针”全局函数CompressBuf()和DeCompressBuf()
- delphi自定义鼠标移入移除和点击后控件的图片改变
- Unity 鼠标拾取检测 (Mouse Raycast ) UGUi面板随鼠标指针显隐
- AS3 改变鼠标指针样式
- Delphi实现全局鼠标钩子
- Delphi中的压缩单元ZLib.pas中二个鲜为人知的二个“指针”全局函数CompressBuf()和DeCompressBuf()
- delphi内如何检测用户多长时间没有鼠标与键盘操作?
- 在 Delphi 中调用系统的手形鼠标指针