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

Delphi侦测按键输入

作者:admin 来源: 日期:2014/11/24 20:55:47 人气: 标签:

1. Form -> keyprivew = True
2.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = vk_down) or (key = 13) then begin // 如果按向下鍵或Enter
//key:=vk_tab;
Caption :=ActiveControl.Name;
SendMessage(getparentform(self).Handle,WM_NEXTDLGCTL,0,0);
end else if (key = vk_up) then begin // 如果按向上鍵
Caption :=ActiveControl.Name;
SendMessage(getparentform(self).Handle,WM_NEXTDLGCTL,1,0);
end;
if ssctrl in shift then
if key = vk_f11 then showmessage(‘按下Ctrl+F11′);
end;

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