TWebbrowser URL als Parameter übergeben

[marabu]

Aus meinem Testcode:

Delphi-Quellcode:

function TDemoForm.WebBrowserShowContextMenu(const dwID: Cardinal;
  const ppt: PPoint; const pcmdtReserved: IInterface;
  const pdispReserved: IDispatch): HRESULT;
var
  e: IHTMLElement;
  href: String;
begin
  Result := S_FALSE;
  href := ExtractLink(pdispReserved as IHTMLElement);
  if href <> '' then
  begin
    Result := S_OK;
    LinkCopyAction.Hint := href;
    WebMenu.Popup(ppt.X, ppt.Y);
  end;
end;

marabu