Delphi 获取鼠标按键状态源码.rar
Delphi 获取鼠标按键状态源码，运行本程序后，操作鼠标左右键和中轮，程序将监控到这些鼠标键被按下的状态，并将信息显示在窗口的标题栏中，本程序同时也实现了动态改变窗口标题文字的功能，各个鼠标按键状态获取及提示信息如下：
procedure TForm1.WMLButtonDblClk(var Message: TWMLButtonDblClk);
begin
Self.Caption := '鼠标左键双击';
end;
procedure TForm1.WMLButtonDown(var Message: TWMLButtonDown);
begin
Self.Caption := '鼠标左键按下';
end;
procedure TForm1.WMMButtonDblClk(var Message: TWMMButtonDblClk);
begin
Self.Caption := '鼠标中键双击';
end;
procedure TForm1.WMMButtonDown(var Message: TWMMButtonDown);
begin
Self.Caption := '鼠标中键按下';
end;
procedure TForm1.WMRButtonDblClk(var Message: TWMRButtonDblClk);
begin
Self.Caption := '鼠标右键双击';
end;
procedure TForm1.WMRButtonDown(var Message: TWMRButtonDown);
begin
Self.Caption := '鼠标右键按下';
end;
procedure TForm1.WMLButtonDblClk(var Message: TWMLButtonDblClk);
begin
Self.Caption := '鼠标左键双击';
end;
procedure TForm1.WMLButtonDown(var Message: TWMLButtonDown);
begin
Self.Caption := '鼠标左键按下';
end;
procedure TForm1.WMMButtonDblClk(var Message: TWMMButtonDblClk);
begin
Self.Caption := '鼠标中键双击';
end;
procedure TForm1.WMMButtonDown(var Message: TWMMButtonDown);
begin
Self.Caption := '鼠标中键按下';
end;
procedure TForm1.WMRButtonDblClk(var Message: TWMRButtonDblClk);
begin
Self.Caption := '鼠标右键双击';
end;
procedure TForm1.WMRButtonDown(var Message: TWMRButtonDown);
begin
Self.Caption := '鼠标右键按下';
end;
文件下载
资源详情
[{"title":"（ 7 个子文件 6KB ） Delphi 获取鼠标按键状态源码.rar","children":[{"title":"srcfans.com","children":[{"title":"Delphi 获取鼠标按键状态源码","children":[{"title":"Project1.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"Unit1.dfm <span style='color:#111;'> 369B </span>","children":null,"spread":false},{"title":"Project1.cfg <span style='color:#111;'> 434B </span>","children":null,"spread":false},{"title":"Unit1.pas <span style='color:#111;'> 1.48KB </span>","children":null,"spread":false},{"title":"Project1.dpr <span style='color:#111;'> 188B </span>","children":null,"spread":false},{"title":"Project1.dof <span style='color:#111;'> 2.58KB </span>","children":null,"spread":false},{"title":"Unit1.dcu <span style='color:#111;'> 4.58KB </span>","children":null,"spread":false}],"spread":true}],"spread":true}],"spread":true}]
评论信息
其他资源
- cookies & inject browser
- 词法分析器C语言编写（附实验报告）
- 多机器人编队控制matlab仿真程序
- 医疗APP原型设计
- DSP28335中文手册
- 自动升降车库毕业设计
- zabbix windows 2008 r2模板
- java实验室设备管理系统.zip
- TMS320F28335 例程 CCS 可直接运行
- 普通化学第六版知识点整理.docx
- 2018年下半年信息系统项目管理师考试试题和答案详细解析（上午、案例和论文写作）.pdf
- 2007年本田思域评估报告.docx
- 逆变电路的基本工作原理
- 操作系统思维导图.zip
- 阿里云 专有云企业版 V3.10.0 企业级分布式应用服务 开发指南 20191122.pdf
- Qt实现Winsock网络编程—非阻塞模式下的简单远程控制的开发 示例demo
- tomcat-7.0
- 图书馆管理信息系统的设计与实现
- 化妆品网站前台模板，全部HTML
- Practical Quantum Computing for Developers
- java游戏合集
- H.264测试工具JM18.6
- VB 6.0精简版 5.86MB
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明