Wort im Browser markieren -> Rechtsklick -> Programm starten

[marabu]

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