delphi 之 WebBorwser 解决无法模拟Enter

分类： Delphi 2012-02-01 15:00 177人阅读 评论(0) 收藏 举报

delphiwebbrowserbrowserdelete

原文：http://topic.csdn.net/t/20050525/15/4034712.html

//添加一个TApplicationEvents，然后添加下列事件响应代码：

procedure   TForm1.ApplicationEvents1Message(var   Msg:   tagMSG;
    var   Handled:   Boolean);
{   fixes   the   malfunction   of   some   keys   within   webbrowser   control   }
const
    StdKeys   =   [VK_TAB,   VK_RETURN];   {   standard   keys   }
    ExtKeys   =   [VK_DELETE,   VK_BACK,   VK_LEFT,   VK_RIGHT];   {   extended   keys   }
    fExtended   =   $01000000;   {   extended   key   flag   }
begin
    Handled   :=   False;
    with   Msg   do
        if   ((Message   > =   WM_KEYFIRST)   and   (Message   <=   WM_KEYLAST))   and
            ((wParam   in   StdKeys)   or   {$IFDEF   VER120}(GetKeyState(VK_CONTROL)   <   0)   or   {$ENDIF}
            (wParam   in   ExtKeys)   and   ((lParam   and   fExtended)   =   fExtended))   then
        try
            if   IsChild(WebBrowser1.Handle,   hWnd)   then
            {   handles   all   browser   related   messages   }
            begin
                with   WebBrowser1.Application   as   IOleInPlaceActiveObject   do
                    Handled   :=   TranslateAccelerator(Msg)   =   S_OK;
                if   not   Handled   then
                begin
                    Handled   :=   True;
                    TranslateMessage(Msg);
                    DispatchMessage(Msg);
                end;
            end;
        except   end;
end;   //   IEMessageHandler

uses   activex,   OleCtrls......

更多0

上一篇：Delphi 之 WebBrowser内 模拟按键输入

下一篇：Delphi 之 webbrowser 读取网页源码