Как запретить правую кнопку мыши для TCromium

[demiancz]

Как запретить клик правой кнопкой мыши в Cromium.
В WebBrouser это решается так:

function MouseProc(nCode: Integer; WP: wParam; LP: lParam): Integer; stdcall;
var
  MHS: TMouseHookStruct;
  WC: TWinControl;
begin
  Result := CallNextHookEx(HMouseHook, nCode, WP, LP);
  if nCode = HC_ACTION then
  begin
    MHS := PMOUSEHOOKSTRUCT(LP)^;
    if (WP = WM_RBUTTONDOWN) or (WP = WM_RBUTTONUP) then
    begin
      // Определяем контрол под курсором
      WC := FindVCLWindow(MHS.pt);
      // Если это TWebBrowser и у него есть PopupMenu, то вызываем PopupMenu
      if WC is TWebBrowser then
      begin
        Result := 1;
        if (TWebBrowser(WC).PopupMenu <> nil) and (WP = WM_RBUTTONUP) then
        begin
          if Pop then
            Exit;
          Pop := True;
          TWebBrowser(WC).PopupMenu.Popup(MHS.pt.x, MHS.pt.y);
          Pop := False;
        end;
      end;
    end;
  end;
end;

Но когда пробую что то подобное сделать для Cromium, то в нем нет PopupMenu, потому и не получается. Помогите пожалуйста решить проблему.

[demiancz]

И еще интересует как запретить в Chromium переход по определенному адресу например как это в том же WebBrouser делается

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  cancel:=false;
  if (pos('programmersforum',url)) or (pos('yandex',url))>0 then cancel:=true;
end;

[astecenko]

Как запретить клик правой кнопкой мыши в Cromium.

Если имеется в виду убрать дефолтноe контекстное меню, то в OnBeforeContextMenu прописываешь

model.Clear;