如何判断按下了TAB键和SHIFT+TAB键,保证送分 好像系统已经把这个按键屏蔽了,常规途径无法获得这个按键的,你用全局钩子试试吧gz,up 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 KeyDown事件中:if (Key = VK_TAB) and (ssShift in Shift) then // Shift + Tabelse if (Key = VK_TA) and (Shift = []) then // Tab trainbox()说的有道理。我有些想当然了,确实不行。不过我通过WinSight32跟踪出来,按Tab键会触发WM_COMMAND消息。但是至于两个参数是什么意义,好像帮助上面查不到。 在Form上放一个TApplicationEvents,然后在它的OnMessage事件中写如下代码: if Msg.message = WM_KEYDOWN then begin if Msg.wParam = VK_TAB then begin if HIWORD(GetKeyState(VK_SHIFT)) > 0 then ShowMessage('shift+tab') else ShowMessage('tab'); end; end; 聊天软件控件问题 哪位大侠用过类似于outlookbar的控件?欢迎推荐个比较不错的控件 急!如何在COM中传递记录型数组。(100分。在线等即时结贴) 有关鼠标定点的问题? Delphi连接OPC服务端控件哪里可以下载? 关于CheckListBox 用法,谢谢, 搜索的内容怎么好多连接错误?郁闷中...... 极其严重的错误!在线急等!!!!!! Delphi MlSkin V1.5 发布啦! 它能让你的程序拥有像QQ一样多彩炫丽的外观 怎样提取TWebBrowser的头? 三层结构开发的程序,原来好用,服务器重装系统后却运行出错? 如何汉化用installshied制作的安装程序
if (Key = VK_TAB) and (ssShift in Shift) then
// Shift + Tab
else if (Key = VK_TA) and (Shift = []) then
// Tab
不过我通过WinSight32跟踪出来,按Tab键会触发WM_COMMAND消息。但是至于两个参数是什么意义,好像帮助上面查不到。
begin
if Msg.wParam = VK_TAB then
begin
if HIWORD(GetKeyState(VK_SHIFT)) > 0 then
ShowMessage('shift+tab')
else
ShowMessage('tab');
end;
end;