禁用TwebBrowser右鍵

一劍平江湖發表於2013-12-10
Web

在窗體上放置一個TApplicationEvents控制元件（在Additional皮膚），編寫該控制元件的OnMessage事件響應程式碼：

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;

相關文章