原文: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
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;