当前位置: > 中国教程网>软件开发>Delphi> 用Delphi检测特殊键状态

用Delphi检测特殊键状态

作者: 来源:中国教程网 点击: 日期:2007-04-02

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

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

edu-cn.com

控件 Caption
form1 用检测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 .DFM}

　　procedure TForm1.Timer1Timer(Sender: TObject);

　　var keystates:TKeyboardState;

　　begin

　　getkeyboardstate(keystates);

　　begin

　　if odd(keystates[vk—numlock]) then

　　checkbox1.Checked:=true

　　//判断是否按下Num Lock钮

　　Numlock 漂亮MM女性网

　　else

　　checkbox1.Checked:=false;

　　if odd(keystates[vk—CAPITAL]) then

　　checkbox2.Checked:=true

　　//判断是否按下Caps Lock钮

　　else

　　checkbox2.Checked:=false;

　　if odd(keystates[vk—Scroll]) then

　　//判断是否按下Scroll Lock钮

　　checkbox3.Checked:=true

　　else

　　checkbox3.Checked:=false;

　　end;

　　end;

　　end.

AOE3 STUDIO

漂亮MM女性网

【文章评论】【收藏本文】【推荐好友】【打印本文】【论坛讨论】

最新文章:

·Delphi控制Excel自动生成报表(04-02)	·在Delphi应用程序中使用DLL(04-02)
·用DELPHI编程访问SQL SERVER数据库(04-02)	·用Delphi实现文件关联(04-02)
·Delphi中高级DLL的编写和调用(1)(04-02)	·Delphi＋Cell全攻略(04-02)
·Delphi使用三则(04-02)	·用Delphi实现选单的自动隐藏功能(04-02)
·QQ聊天记录器演示程序(二)(04-02)	·浅谈Delphi如何控制Excel操作(04-02)

·用Delphi制作Windows 98风格的工具栏	·创建“控制面板”的新项目
·用Delphi编制金额大写转换程序	·用Delphi实现文件关联
·如何在Delphi中制作“动态选单”	·Delphi使用三则
·Delphi中API编程－－在Delphi中调用API函	·用Delphi制作“复活节彩蛋”
·在Delphi应用程序中使用DLL	·用Delphi实现选单的自动隐藏功能

文章评论:(0条)

用户名：（新注册）密码：匿名评论

评论内容：(不能超过250字，需审核后才会公布，请自觉遵守互联网相关政策法规。

§最新评论：

责任编辑:中国教程网