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

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

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

1. uses
2. ActiveX;
3. procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
4. const
5. StdKeys = [VK_TAB, VK_RETURN, VK_BACK]; { standard keys }
6. ExtKeys = [VK_DELETE, VK_LEFT, VK_RIGHT, VK_UP, VK_DOWN]; { extended keys }
7. fExtended = $01000000; { extended key flag }
8. var
9. CurrentEWB: TEmbeddedWB;
10. begin
11. Handled := False;
12. CurrentEWB := EmbeddedWB1;
13. if Assigned(CurrentEWB) then
14. if IsChild(CurrentEWB.Handle, Msg.Hwnd) then
15. begin
16. Handled := (IsDialogMessage(CurrentEWB.Handle, Msg) = True);
17. if Handled and not CurrentEWB.Busy then
18. if ((Msg.Message >= WM_KEYFIRST) and (Msg.Message <= WM_KEYLAST)) and
19. ((Msg.wParam in StdKeys) or (GetKeyState(VK_CONTROL) < 0) or (Msg.wParam in ExtKeys) and
20. ((Msg.lParam and fExtended) = fExtended)) then
21. begin
22. Handled := (CurrentEWB.Application as IOleInPlaceActiveObject).TranslateAccelerator(Msg) = S_OK;
23. if not Handled then
24. begin
25. Handled := True;
26. TranslateMessage(Msg);
27. DispatchMessage(Msg);
28. end;
29. end;
30. end;
31. end;

http://blog.csdn.net/aqtata/article/details/8669286