Context menu with function

[thefunkyjoint]

I know how to personalize the context menu as the example below. But how can i add an Item that will call my own specific procedure ?

Thanks

procedure TForm1.OnBeforeContextMenu(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const params: ICefContextMenuParams;
const model: ICefMenuModel);
begin
model.clear;
model.AddItem(CEFBROWSER_CONTEXTMENU_BACK, 'Back');
model.AddItem(CEFBROWSER_CONTEXTMENU_FORWARD, 'Next');
model.AddItem(CEFBROWSER_CONTEXTMENU_RELOAD, 'Reload');
model.AddSeparator;
model.AddItem(CEFBROWSER_CONTEXTMENU_COPY_URL, 'Copy link');
end;

[salvadordf]

Hi,

Use the TChromiumCore.OnContextMenuCommand event and call your custom function when commandId has the same ID value that you added in TChromiumCore.OnBeforeContextMenu.

The MiniBrowser demo shows how to use those events here :
https://github.com/salvadordf/CEF4Delphi/blob/805be3e7800ed74500c32b48c7ffab4495e53427/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas#L552

[thefunkyjoint]

Thank you, it worked !