Hi,
hast du dich für den EmbeddedWebBrowser erwärmen können? Dann ist es recht einfach. Ordne deiner Browser-Komponente
WebBrowser ein PopupMenu
BrowserMenu zu und schreibe Code für das Ereignis
OnShowContextMenu() - hier ein wenig sceleton code aus einem Editor von mir:
Delphi-Quellcode:
function TEditForm.WebBrowserShowContextMenu(const dwID: Cardinal;
const ppt: PPoint; const pcmdtReserved: IUnknown;
const pdispReserved: IDispatch): HRESULT;
begin
// die Bedingung wird nicht ausreichen und evtl.
// willst du hier noch MenuItems erzeugen...
if dwID in [CONTEXT_MENU_TEXTSELECT, CONTEXT_MENU_CONTROL] then begin
Result := S_OK;
ClientToScreen(ppt^);
BrowserMenu.Popup(ppt.x, ppt.y);
end else
Result := S_FALSE;
end;
Grüße vom marabu