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 hexstrtostream

Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)

Delphi 获取webbrowser中的图片

Delphi xe5 for android memo控件 无法读取txt文件

Delphi 执行一个外部程序，当外部程序结束后言主程序立即响应

Delphi退出程序询问

Delphi 分解链接主域名和文件名

Delphi 根据字符串找到函数并执行

Delphi 主窗体最小化时不显示在任务栏

Delphi webbrowser用记事本查看源代码

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

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