RSS订阅 | 匿名投稿
您的位置:网站首页 > 键盘 > 正文

Delphi 判断按键状态

作者:admin 来源: 日期:2013/11/28 21:45:47 人气: 标签:

调用GetKeyState(nVirtKey:integer)函数,可以判断是否按下了Alt、Ctrl、Shift键,如果函数返回值<0则表示按下了。
参数:
nVirtKey
    指定一个键。如果指定字母或数字键,nVirtKey 必须为该字符的 ASCII 码值。如:判断‘a’键是否按下使用GetKeyState(65),65是字符‘a’的ASCII码值,关于字符的ASCII码值请参考有关资料。Alt、Ctrl、Shift键使用下面的常量,而不使用ASCII码值。

VK_SHIFT
Shift键

VK_CONTROL
Ctrl键

VK_MENU
Alt键
例子:
function Shift_down():boolean;
//判断是否按下shift键,如果按下返回True,否则返回False
begin

if GetKeyState(VK_SHIFT)<0 then Result:=True else Result:=False;
end;

function Alt_down():boolean;
//判断是否按下Alt键,如果按下返回True,否则返回False
begin

if GetKeyState(VK_MENU)<0 then Result:=True else Result:=False;
end;

function Ctrl_down():boolean;
//判断是否按下Ctrl键,如果按下返回True,否则返回False
begin

if GetKeyState(VK_CONTROL)<0 then Result:=True else Result:=False;
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: