Eigene Tags zum HTML Editor hinzufügen (MSHTML)

[CyberMuth]

Hallo,
mit Hilfe der MSHTML Libary für Delphi-Applikationen ist es möglich den TWebbrowser zu editieren und ihn als HTML Dokument zu speichern. Siehe auch http://www.dataweb.de/de/support/art...ml/mshtml.html
Das funktioniert auch soweit.
Nun möchte ich eigene Tags zum Webbrowser an der aktuellen Cursorposition hinzufügen.
Bisher fügt er das Element immer ans Ende des Webbrowser und nicht an die Cursorposition.
Der Code sieht wie folgt aus:

Delphi-Quellcode:

procedure TFrm_HTMLEditorDlg.ToolButton2Click(Sender: TObject);
var
  Element: IHTMLElement;
begin
  Element := HTMLDocument2Ifc.createElement('div');
  Element.setAttribute('align', 'left', 0);
  Element.innerText := 'Das ist mein Text';
 
 (HTMLDocument2Ifc.activeElement as IHTMLDOMNode).appendChild(Element as IHTMLDOMNode);
end;

Die Funktion wird aufgerufen, wenn man sich im Editiermodus befindet.

Weiß von euch vielleicht jemand, wie man den Tag mit Inhalt an die Stelle des Cursors bekommt?
Wenn ihr noch mehr Code oder Infos braucht einfach bescheid sagen.

[CyberMuth]

Hey, kann keiner eine Idee?

[Neutral General]

Hallo,

Das HTML-Dokument hat eine Methode "insertBefore". Mit dieser sollte man Tags auch irgendwo mittendrin einfügen können ;)

Gruß
Neutral General

[CyberMuth]

Hallo,
die Methode insertBefore hat den Parameter IHTMLDOMNode **node.
Node ist die Adresse eines Zeigers, der einen Verweis zurück auf das Element gibt, in das das Dokument eingefügt werden soll.

Wie bekomme ich die Adresse des Zeigers, wo sich der Cursor im WebBrowser befindet?

Es wäre wirklich super, wenn ihr mir weiterhelfen könntet.