Delphi侦测按键输入

本文整理自网络，侵删。

 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 // 如果按向下?I或Enter
//key:=vk_tab;
Caption :=ActiveControl.Name;
SendMessage(getparentform(self).Handle,WM_NEXTDLGCTL,0,0);
end else if (key = vk_up) then begin　// 如果按向上?I
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;
 

相关阅读 >>

Delphi tfilestream 打开模式与共享模式

Delphi 模拟网站验证码

Delphi 关于 "高位" 与 "低位"

Delphi ini文件操作 tinifile、tmeminifile

Delphi读取文本文件的最后一行

Delphi中判断某个文件是否已经打开

Delphi树的一些操作

Delphi正则表达式匹配中文

Delphi 三层架构简单例子(经测试成功)

Delphi 安卓app在线升级

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi侦测按键输入