Momentan mache ich es so:
Delphi-Quellcode:
procedure TForm6.Button1Click(Sender: TObject);
var
HTMLDocument2Ifc: IHTMLDocument2;
HTMLSelectionObjectIfc: IHTMLSelectionObject;
HTMLTxtRangeIfc: IHTMLTxtRange;
begin
HTMLDocument2Ifc := Form1.WebBrowser1.Document as IHTMLDocument2;
HTMLSelectionObjectIfc := HTMLDocument2Ifc.selection;
HTMLTxtRangeIfc := HTMLSelectionObjectIfc.createRange as IHTMLTxtRange;
HTMLTxtRangeIfc.pasteHTML('<a name="' + edit10.text + '" ></a>');
end;
Das klappt auch, nur bekomme ich den Anker nirgens zu sehen, obwohl er da ist, mein Problem ist dann das ich den Anker nicht auslesen kann, so wie es mit
WebBrowser1.OleObject.Document.execCommand('CreateLink', true)
klappt.