解决Webbrowser加载Flash后，方向键等冲突

最新推荐文章于 2023-07-12 17:47:44 发布

原创最新推荐文章于 2023-07-12 17:47:44 发布 · 5.2k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#webbrowser #flash #delete #up

Delphi（转帖）专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一种通过在主窗体上放置ApplicationEvent控件来监听并处理标准和扩展键盘消息的方法。具体实现了当用户在嵌入式Web浏览器控件中按下指定按键时，能够捕获这些按键事件并进行相应处理。

主窗体上放一个ApplicationEvent控件，OnMessage事件中这么写：

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); const StdKeys = [VK_TAB, VK_RETURN, VK_BACK]; { standard keys } ExtKeys = [VK_DELETE, VK_LEFT, VK_RIGHT, VK_UP, VK_DOWN]; { extended keys } fExtended = $01000000; { extended key flag } var CurrentEWB: TEmbeddedWB; begin Handled := False; CurrentEWB := EmbeddedWB1; if Assigned(CurrentEWB) then if IsChild(CurrentEWB.Handle, Msg.Hwnd) then begin Handled := (IsDialogMessage(CurrentEWB.Handle, Msg) = True); if Handled and not CurrentEWB.Busy then if ((Msg.Message >= WM_KEYFIRST) and (Msg.Message <= WM_KEYLAST)) and ((Msg.wParam in StdKeys) or (GetKeyState(VK_CONTROL) < 0) or (Msg.wParam in ExtKeys) and ((Msg.lParam and fExtended) = fExtended)) then begin Handled := (CurrentEWB.Application as IOleInPlaceActiveObject).TranslateAccelerator(Msg) = S_OK; if not Handled then begin Handled := True; TranslateMessage(Msg); DispatchMessage(Msg); end; end; end; end;