判断两个键同时按下，这里是两个方向键

最新推荐文章于 2023-10-22 06:55:10 发布

转载最新推荐文章于 2023-10-22 06:55:10 发布 · 1w 阅读

Delphi 专栏收录该内容

79 篇文章

订阅专栏

本文介绍了如何使用Delphi中的GetKeyboardState函数来判断用户是否同时按下上键和左键，通过设置键盘状态变量并进行逻辑判断，实现特定功能的触发。

原文：http://hi.baidu.com/gezhou/blog/item/4bf712b326cc94a2d8335af0.html

使用GetKeyboardState来判断键盘按键状态，判断用户是否同时按下上键和左键

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
k :TKeyboardState;
begin
GetKeyboardState(k);
if ((k[vk_up]=128)or(k[vk_up]=129)) and
((k[vk_left]=128)or(k[vk_left]=129)) then
self.Caption := FormatDateTime('yyyy-MM-dd hh:nn:ss',now);
end;

Delphi 判断按键状态

调用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;