如何屏蔽TWebBrowser的Ctrl+N键

Question

如何屏蔽TWebBrowser的Ctrl+N键

Answer 1

//方案1 通过截获应用程序按键消息
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (ActiveControl = WebBrowser1) and
    (Msg.message = WM_KEYDOWN) and
    (Msg.wParam = Ord('N')) and
    (ssCtrl in KeyDataToShiftState(Msg.lParam)) then
    Handled := True;
end;//方案2 通过网页添加javascript代码将其屏蔽
代码略

Answer 2

procedure wmKeyDown(var msg: Tmessage);message WM_KEYDOWN;

Answer 3

元件板Additional页有TApplicationEvents元件，放到窗体上对OnMessage写上事件代码～～
如果没有TApplicationEvents元件，直接对Application.OnMessage赋值即可～～