当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 用Delphi检测特殊键状态

Delphi
在线播放器DIY
关于VisiBroker For Delphi的使用（3）
关于VisiBroker For Delphi的使用（2）
关于VisiBroker For Delphi的使用（1）
Delphi的两个实用技巧(2)巧用Windows的API函数
Delphi的两个实用技巧(1)播放Flash
delphi学习:两种方法使用xml文档
Delphi与Word之间的融合技术
Delphi中动态链接库(DLL)的建立和使用
Delphi基础:Window 消息大全使用详解下
Delphi基础:Window 消息大全使用详解上
教你在DELPHI中如何调用系统对话框
Delphi开发单机瘦小数据库程序要点
用Delphi + DirectX开发简单RPG游戏
Delphi7从入门到精通之认识Delphi编辑器
Delphi7从入门到精通之历数Delphi七个版本
Delphi学习:图像放大漫游攻略
用编程来实现24小时制到12小时制的转换
一个实际的OLE服务器的开发
Delphi一点通:如何将源代码学好

No. « 8 9 10 11 »

技术文章搜索

关键字

用Delphi检测特殊键状态

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-30   浏览: 50 ::
收藏到网摘: n/a

 

　　在编程中，三个特殊键(NUM LOCK键、CAPS LOCK键、SCROLL LOCK键)是可以通过键盘控制操作的。但有时在应用程序中需要切换大小写输入、数字键输入等功能,这就需要在程序中加入自动判别这些键状态和切换这些键状态的功能。笔者用Delphi4.0编制了一个检测和切换这些特殊键的程序。

　　一、创建含有如下控件的窗体：

























控件Caption
form1用Delphi检测Num Lock键，Caps Lock键，Scroll Lock键的状态
checkbox1按下Num Lock键
checkbox2按下Caps Lock键
checkbox3按下Scroll Lock键
Time1 

二、编写如下程序：

　　unit nums;

　　interface

　　uses

　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

　　 ExtCtrls, ComCtrls, StdCtrls;

　　type

　　 TForm1 = class(TForm)

　　Timer1: TTimer;

　　CheckBox1: TCheckBox;

　　CheckBox2: TCheckBox;

　　CheckBox3: TCheckBox;

　　procedure Timer1Timer(Sender: TObject);

　　 private

　　{ Private declarations }

　　 public

　　{ Public declarations }

　　 end;

　　var

　　 Form1: TForm1;

　　implementation

　　{＄R