文件名称：Delphi 获取鼠标按键状态源码.rar
文件大小：6KB
文件格式：RAR
更新时间：2022-07-30 11:48:25
Delphi源码-系统相关
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;
【文件预览】：
srcfans.com
----Delphi 获取鼠标按键状态源码()
--------Project1.res(876B)
--------Unit1.dfm(369B)
--------Project1.cfg(434B)
--------Unit1.pas(1KB)
--------Project1.dpr(188B)
--------Project1.dof(3KB)
--------Unit1.dcu(5KB)