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.