Webbrowser加载Flash后方向键失效问题（用到了OLE接口，没有被处理就转发，够复杂的）

原文：http://blog.csdn.net/dropme/article/details/6253528

 

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

 

uses
  ActiveX;

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;