Delphi TWebBrowser[9] 事件Close捕获来防止异常、禁用鼠标右键、回车Enter等键的响应方法

Delphi TWebBrowser[9] 事件Close捕获来防止异常 以及 禁用鼠标右键方法

1、事件Close捕获

原因：使用TWebBrowser，如果访问的网页有关闭窗口的JavaScript，那么TWebBrowser会被注销，而应用程序本身并没有关闭，

1）在窗体上放置一个TApplicationEvents控件

2）编写OnMessage事件

?

1 2 3 4 5 6 7 8 9 10

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin   if Msg.message = WM_CLOSE then //判断是否关闭消息   begin     if WebBrowser1.Handle = Msg.hwnd then //验证消息是否WebBrowser发来的     Form1.Close; //关闭窗体本身     Handled := true;   end; end;

 

2、禁用鼠标右键

?

1 2 3 4 5 6 7

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;   var Handled: Boolean); begin   if (Msg.message = wm_rbuttondown) or (Msg.message = wm_rbuttonup) or (msg.message = WM_RBUTTONDBLCLK)   then     if IsChild(WebBrowser1.Handle, Msg.hwnd) then       Handled := true;//如果有其他需要处理的，在这里加上你要处理的代码 end;

　　

 3、回车Enter等键的响应

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); const   StdKeys =[VK_TAB, VK_RETURN, VK_DELETE, VK_BACK]; { standard   keys }   ExtKeys =[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   //Msg.hWnd       begin    { handles all browser related messages  处理所有与浏览器相关的消息 }         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;

　　

 

 

 

创建时间：2020.11.23　　更新时间：2021.01.14