BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

procedure TFraChromium.ChromiumBeforeContextMenu(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame;
  const params: ICefContextMenuParams; const model: ICefMenuModel);
var
  LOption: TMenuOption;
begin
  model.Clear;

  for LOption in FMenuOptions do
  begin
    case LOption.Id
      of 0: model.AddSeparator;
      else
      Begin
        model.AddItem(LOption.Id, LOption.Caption);
        model.SetEnabled(LOption.Id, True);
      End;
    end;
  end;
end;