X
xeen
Unregistered / Unconfirmed
GUEST, unregistred user!
我用下面的代码想捕捉到 webbrowser 的vm_keydown事件:
procedure Tmainform.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if ischild(web.Handle,msg.hwnd) then
begin
if (msg.message=WM_KEYDOWN) then
sendmessage(mainform.Handle,wm_keydown,msg.wParam,msg.lParam);
end;
end;
我发现按下 ALT键触发不了这个事件,ctrl键却可以!我的热键刚好包括alt,
这是怎么回事?
procedure Tmainform.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if ischild(web.Handle,msg.hwnd) then
begin
if (msg.message=WM_KEYDOWN) then
sendmessage(mainform.Handle,wm_keydown,msg.wParam,msg.lParam);
end;
end;
我发现按下 ALT键触发不了这个事件,ctrl键却可以!我的热键刚好包括alt,
这是怎么回事?