URL des Links über dem die Maus ist heraufinden/TWebbrowser

[marabu]

Dann brauchst du vielleicht das hier?

Delphi-Quellcode:

function TWebForm.BrowserShowContextMenu(const dwID: Cardinal;
  const ppt: PPoint; const pcmdtReserved: IInterface;
  const pdispReserved: IDispatch): HRESULT;
var
  e: IHTMLElement;
  d2: IHTMLDocument2;
begin
  d2 := Browser.Document as IHTMLDocument2;
  e := d2.elementFromPoint(ppt.x, ppt.y) as IHTMLElement;
  if Assigned(e) then
    ShowMessage(e.outerHTML);
  Result := S_OK;  // suppress default context menu
end;

Browser ist vom Typ TEmbeddedWebbrowser.

Freundliche Grüße vom marabu